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Burroughs cannot accept any financial or other responsibilites that may 
be the result of your use of this information or software material, 
including directs indirects special or consequential damages. There are 
no warranties extended or granted by this document or software materiat. 


You should be very careful to ensure that the use of this software 
material and/or information complies with the tlawsrs rules, and 
regulations of the jurisdictions with respect to which it is used. The 
information containec herein is subject to change without notice. 
Revisions may be issued to advise of such changes and/for additions. 
additions. , 


Any comments or suggestions regarcing this cocument should be forwarded 
to 81000 Migrations - Programming Activity, Systems Development Groups 
Burroughs Corporation, 460 Sterra Madre Villas Pasadenas CA 91109. 
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INTRODUCTION 

This manual has been prepared to help you migrate from the £1000 Series 
Systems (running native softwares not CMS software) to the 
82000/300G/4000 Series Systems. This manual contains: 

1. bifferences between the two systems 

2.2 Descripticns of common migration problems and their sclutions 

3. General recommendations for handling the overall migration 
This is version one of this manual. It covers many of the major areas 
of a B1000 to B2C00/3000/4000 migration. Adcitional sectionse aicng 


with updated informations witt be added to future versions. 


This manual is also accessible through your B2000/3000/40CO terminals 
with the aid of the Online Migration Guide program. 


SOFTWARE VERSION 


This document pertains to the 10.0 release of the 871000 series systems 
and the 6.8 release of the 82000/30C0/4000 series systems. 


ORGANIZATION OF THE MANUAL 
The first section of this manual discusses general wigration management 
techniques that apply to all migrations. The subsequent sections give 
detailed instructions for compteting each part of the migration. Each 
section is independent of the others, except as noted. 
The manuat is divided into the following sections: 

7. Section 1 presents an overview of the migration process. 

Qe Section 2 discusses the process of file transfer. 

3. Section 3 discusses the migration of RPG programs. 


4. Section 4 outlines the B2000/73000/4000 SORT Utility program. 


5. Section discusses the migration of 81000 CCOBOL74 programs to 
eso00 sacgnccus COBOL74. 


& Section 6 discusses the nigration cf 81000 COBOLEéS programs to 
B2000/3000/4000 COBOL74. 


7. Section 7? discusses the migration of DASDL programs. 
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8 Section 8&8 discusses the DMSII host Language syntax and semantic 
differences. 


9. Section 9 discusses the differences between 81000 and 
82000/300074000 ISAM and RELATIVE fites. 


10. Section 10 compares 81000 queue files and 82000/30G66/4000 port 
files. 


11. Section 171 discusses the migration frem 81060 Remote files. 
12. Section 12 discusses the migration of Reader Sorter programs. 


13. Section 13 discusses the differences between the 81000 and 
B2000/3000/400C0 file attributes. 


14. Section 14 discusses the changes you reed te make to migrate the 
transaction programs and GEFCOS specifications. 


15. Section 15 and 16 discuss REPORTER and ODESY. 


16. To help with the migrations a tist of references ano a planning 
guide are included in the appendices. 


MEGRATION ASSISTANCE 


If you have a migration preblem or solution that is not covered in this 
documents please send a detaited description to: 


Burroughs Corporation 

Programming Activity - 87000 Migrations 
460 Sierra Madre Villa 

Pasadenas CA 91109 


If you have an immediate problem, please contact your local Burroughs 
Technical Representative. 
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SECTION 1 
THE MIGRATION PROCESS 


When you upgrade from a 81000 tea a #8200C/3000/4000 systen- it will 
probably be necessary to make some changes to your software. In support 
of your B1000 migration to 82000/3000/4000 series systemsse Surroughs 
provides this documentation and an array of tine and cost-saving 
migration software aids. . 


This section provides you with some tips on migration and a review of 
the available migration software aids. 


We urge you to de a straight migration. Do rot be terpted to “fix up” 
or “enhance” the system white doing the migration. Make only the 
changes necessary to get your software running on your 82000/3000/4000 
system. After the migration is complete and you feel comfortable with 
your new systems you may wish to make changes to your software to take 
advantage of the additionat features available on the 82000/3000/4000 
series systems. 


PLANNING is anecther impertant element in a successful migration. 
Planning should start when you sign for your new 8200CG/3000/4000 system. 
You should have a plan for the entire migration process. Planning is 
discussed more fully below. 


TRAINING is the third key to a successful micration. We urge you to 
take advantage of Burroughs education classes before you start your 
migration. A thorough understanding of B200C/30C00/4C0C0 series systems 
will help the micgration effort consideratly. Consult your Burroughs 
Technical Representative for further information on customer education. 
In summarys for a good migration make sure you: 

1. Make only minimum changes. 

2. Plan and organize carefully. 


3. Get additional training. 


Appendix 8 provides a planning guide to help you with your planning. 


MIGRATION RECORD KEEPING 


The migration loo was designed to hetp you with record keeping. A 
migration journal provides an easy reference source for all members of 
the migration team. 


Lf the migration log and reports are not useds, we recommend using a 
Loose-~Leaf notebook to allow new information to be added as necessary. 
Include alt information required for the migration in the journat. 
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The following is a suggested List of types of information that could be 
contained in your journal: 


Migration sequence definition. 

Migration package definition. 

Transtator run instructions. 

Known trarslator problems or deficiencies. 
File naming conventions. 

System naming conventions. 

Program naming conventions. 

Work Flow Language (WFL) run procedures. 
Data communications implementation information. 
10. Data base implementation infcrmation. 

71. Testing srocedures. 

le. Acceptance procedures. 

13. Technical Information Papers (TIPs). 

14. Problems encountered and their solutions. 


é 


Oo “A Ok UT LA A at 
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MIGRATION TASKS 


The following are suggested tasks for your migration. You may need to 
add or remove activities depending on your srecific migration needs: 


1. Freeze the program library. 
Compile the source code and make a copy of the source and object. 
No changes shoutd be made to the sources or copy Llibraries after 
this point. 
2e Prepare the migration package. 
Gather togethers: 
ae ALL of the source coce. 
b. Copy libraries. 
c. Translation aids. 
d. Migration instructions such as: 
1. New naming conventions. 
2e Data base inmplementaticn information. 
3. Data communications information. 


3. Deliver the migration package. 


Give the migration package over to the individual or team who has 
the responsibility for the sigration. 


4. Translate the source code te clean compile. 


Translate the source code. Generally this is done using one of 
the translators, but it may be done manually if no tool exists. 
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Even with the use of a translators it may be necessary to make 
some manual changes to achieve a clean compile. 


5. Transfer the test data files. 


Retain a copy of the test data for testing purposes. The test 
data files should be varied enough to ensure a thorough test cof 
the entire program. The files should also be smatt enough to 
keep run time short. 


6. Perform the unit tests and make the necessary corrections. 


Unit tests test individual programs after their migration. To 
complete a unit test successfully and efficientlys obtain access 
tos 

a. Source code, 

b. Documentation. 

c. All input files. 

d. Atl output files. 

e. ALi work files. 


The work files are an ispertant part of the debugging process 
because then you can check intermediate results. Their 
importance should not be minimized. 


A source program is successfully migrates when the unit test 
reveals that the resutts of the migrated program on the 
B2000/30C00/74000 system are identical to the results of the 
original program on the 81000 system. 


7. Perform the system test and make corrections. 


A system test is conducted after the successful compilation of 
all unit tests of the individuat programs which make up the 
System. A system test requires: 


ae Documentation. 
b. ALL input files. 
ce All output files associated with the system. 


The system test is successful after it confirms that the results 
produced by the migrated system on the S200C/3000/4000 system are 
identical to the results given by the original system on the 
B1000 system. 


8. Update the documentation. 


Update all documentation to reflect the changes made to the 
applications software. 


9. Implement changes to non-frozen programs. 
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At this times make the same changes te the nicgrated programs that 
were made to the Live production programs. 

10.Beliver the system to operations. 


Deliver the translated programs anc any changes in operating 
procedure to the operations personnel. 


11.Run parallel tests. 
Run identical processing on both the 681000 and #820C0/3000/74CC0 
systems. File comparisons may be cenducted to verify identical 
results. 

12.Begin live operation. 


Processing continues on the B20cC/ 3000/4000 systen. The 
migration process is complete. 


BURROUGHS MIGRATION AIOS 

To ease the process of migrations Burroughs has available a wide range 
of aids for programs and data files. Toolss where they are required, 
exist for most functions and cover all the commonly used programming 
languages. 


The 81000 migration software aids include: 


On-tine Migration Manual 
Provides a means to interactively view or obtain a hard copy of 
all or part of the 81000 to 82000/73000/74000 Series Systems 
Migration Guide and the Migration Aids User Guide as the need 
for referencing arises. 
COBOL68 to COBOL74 Translation 
Filters and translates 87000 COBOLS6& to &2000730CO/4000 COBOL74. 
COBOL74 to COBOL74 Translation 
Filters and transtates 81000 CGBOL74 to 82000/2CCG/4000 CoBOoL74. 
RPG Translation 
Filters and translates 81000 RPG to B82000/300G/4CCO RPC. 
File Transfer Utilities 


Provides a method of transferring library tapes between the 
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B1000 and B2C00/73000/4000 series systems. 
File Renaming and Reformatting Utility 
Provides an interactive methoc of renaming and reformatting 


large number of files transferred from the 81600 to the new host 
system. 
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SECTION 2 
FILE TRANSFER 


File transfer is the process cf moving files from one system to another. 
Because of differences between the systems it 15 generally not possible 
to simply dump files from the host system and load them to the target 
system. Therefcres file transfer comprises both the physical movement 
of data between the two systems as well as the achievement of any data 
or file format changes that may be necessary on the target system. 


This section describes the consicerations in file transfer between 871000 
and 82000/73000/6000 series systenss and the available methods for data 
transfer and format changes. 


FILE TRANSFER CONSIDERATIONS 


No data format changes are necessary between the two systems. Alt types 
of data with all sign formats accepted by 81000 series systems are also 
accepted by the B82000/73000/4000 series systems. File formats are, 
however, different in some cases. 


File names on the 8200073000/4000 series systems are single level names 
of six or fewer characters. Thereforesr files usuaily require to be 
renamed when transferred from 81000 to B2000/3C00/40C0 series systems. 


On the B2000/3000/400G series systenss the record size of a file must be 
an even number of bytes. This implies that special care must be taken 
when transferring files with odd record sizes. These files may have to 
be reblocked for efficiency purposes and programs using these files may 
have to be suitably modified. 


1f a file is to be edited by the 82000/2C00/40CO EDITOR programs the 
file must be changed to a format recognizable by the EXITOR. The EDITOR 
command COPY FROM can be used to convert a disk or pack file to the 
EDITCR format if the original file consistec of 80 character recordss 
blocked between 1 and 9. If this is not the caser the ODMPALL program 
may be used first. An easier method is available using the SSNAME 
utility program. 


The 8200073000/4000 series compilers accept cards» tapes disk and pack 
as valid source input media. The record sizes and black sizes of 
sequential files must be within the Limits for that compiler. The 
B2000/300074000 OMPALL program or the SSNAME utility program may be used 
to reblock the source input files arpropriately. 


LSAMe Relative and OMS files have cifferent formats on the two systems. 
The general method to transfer these fites is to unload the data into 
sequential files on the source systems physically move the sequential 
files to the target system and recreate the files in the correct format 
on the target system. utilities are available to aid the user at 
different stages. 
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RPG ADDROUT files may not te transferred. They must be recreated by the 
B2000/3000/4000 SORT UTILITY progran. 


FILE TRANSFER METHODS 


The following are the utilities which may be used in the process of file 
transfer: 


SScCOPY 

SSNAME 

CONV/ISAM and ISMUTL 
CONV/DMS 

CONV/MSCCPY 

DMPALL 

User written programs 


wi On VI WA AN 
@aa 


felow is a List cf preferred methods of file transfer for different 
types of files. 


FILE TYPES METHODS OF FILE TRANSFER 
Sequential files SSCOPY and SSNAKE 
Sequential files with odd SSCOPY and SSNAFE 

record sizes 
Source programs SSCOPY and SSNAME 
ISAM and Relative files CONVZISAMs SSCOPYs 
SSNAME and ISMUTL 
DMS Titles CONV/ DES 
S$SCOPY 


SSCOPY is a utility program that runs on the &2000/3000/4000 series 
systems. Its major function is to copy files from tapes created by the 
B1000 series systems library maintenance program SYSTEM/COFY. It is a 
recommended method for transferring 81000 files to the 82000/73000/4000 
systems media. 


To transfer files, use the BIO0C0 SYSTEM/COPY to dump files from disk to 
tape. Then mount the tape on a 82000/3000/74800 and run SSCOPY from the 
ODT to Load them to disk or disk pack. 


SSCOPY can optionally copy files under generated six character file 
names which can later be changed to names cesired by the user using the 
MCP control instruction CHANGE ofr by the SSNAFE utility. SSCOPY does 
not normally change file formats. Where such reformatting is requireds 
other utilities must be used after a successful run of SSCOPY. SSCOPY 
produces a report of the run and a names file -s which contains the 
original and new names of the files copied. The names file will be used 
by the SSNAME program. 
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SSNAME 


SSNAME is a 82000/73000/400C utility program that is cesigned to simplify 
the task of changing names or formats of a Large number of files 
transferred to the 82000/3000/4000 series systems during the migration 
process. A successful run of SSCOPY is requires prior to the execution 
of the SSNAME program. SSNAME accepts the names file created by SSCOPY 
as Input. 


SSNAME provides the user the capabilities of renaming, reblocking and 
changing to EDITOR format of files copied by SStcCPY. 


INDEXED AND RELATIVE FILE TRANSFER UTILITIES 


The transfer of ISAM and relative files is a two-part process. The 
first part consists of changing such files to sequential files on the 
81000 series systems by executing the CONV/ISAM utility program. This 
part is required for COBOL74 style ISAM and relative files. Howevers 
this part is not required for COBOL68 and RPG TAGE implementations of 
indexed files. 


After changing the files to sequential files, the files must be 
physicatly moved to the 82000/3000/4000 series systems by the use of 
SSCOPY. The second part consists of changing the sequential files to 
indexed sequential or relative files by executing the ISMUTL program. 
TSMUTL is a utility program that runs on the #82600/3000/4000 series 
systems. It generates a COBOL or RPG program which wilt be used to 
build indexed sequential or relative files from the sequentiat cata 
files. The generator requires the presence of any scurce program which 
will use the file being transfered on the 82000/3000/4000 systems media. 
At Least one COBOL/RPG program which will use the indexed sequential or 
relative file must be translated beforehand. The generator will extract 
information from the program for describing the file. 


CONV/MSCOPY 


During the migration process, there often arises a need to transfer 
files from the 82000/3000/4000 series systems to the 81000 series 
systems for the purpose of testing. CONV/MSCCOPY is a utility program 
that runs on the 81000 series systems which copies files from library 
tapes created by the 82000/3000/40C0 series systems SYSTEM/COPY program 
to 1180-byte media on the 81000 series systems. Files will normally be 
copied without any changes. File attributes will be carried over 
wherever possible, so that the programs using these files will require 
minimum or no modifications. CONV/ESCOPY will recognize and change the 
B82000/3000/4000 series systems EDITOR files to sequential 81000 CANDE 
compatible files. 
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SECTION 3 
RPG 


The use of the Burroughs 81000 Series RPG to @urroughs 3B2000/3000/400C 
Series RPG Filter is recommended te assist you with this migration. The 
RPG Filter is a fully supported program available from your Local 
Burroughs representative. The filter accepts 81000 RPG source code and 
produces 8200073000/4000G RPG source code. The filter filters most 
constructs and clearly flags the remaining ones for manual changes. 


This section will help you to handle 81000 RPG constructs that are not 
translated by the filter to 82000/3000/4000 RPG. 


Refer to Secticn 2 for some tips cn transferring ycur programs from the 
81000 to the 62000/3000/4000 series systems. 


DOLLAR SPECIFICATIONS 


Dollar specifications on 81000 series systems can te divided into two 
classes: 


4. Compiler directing. 
2. File attributes. 


Compiler-directing dollar specifications direct the compiler to perform 
specific functions such as listing the program cr suppressing warning 
messages. File attribute doltar specifications give the compiler 
information about files that is not included in the normal F 
specifications. 81000 examples include PACKIO or FAMILY. 


COMPILER“DIRECTING DOLLAR SPECIFICATIONS 


on the B2000/3000/4000 series systemse compiler-directing dollar 
specifications are referred to as Compiler Control Images (CCI). There 
are two types of CCIs2: temporary and permanent. <A temporary CCIs which 
has onty one $ in column 6 can be made permanent by adding another $ in 
column 7. 


The following is a list of compiler directing dollar specifications 
which require manual changes: 


81006 B200C/3000/4C00 


BAZBON The effect is the same as having 
an entry of S in Column 42 of 
the H specifications. 


LIBR No equivalent. This cption is teing 
evaluated for future iseplementation. 
Manual changes are required. 
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NAMES No equivalent. 

PARMAP No equivalent. 

STACK Not applicable. B82000/3000/4000 
RPG handles stack automatically. If 
more stack is requireds the program 
must be executed with additional 
memory using the CORE cption and the 
INSERT statenrment. 

XMAP No equivalent exists but the CODE 
option is similar and very useful. 

ZBINIT The effect is the same as having 


an entry of $ in Column 42 of the H 
specifications. 


FILE ATTRIBUTE DOLLAR SPECTFICATIONS 


ALL the 81000 file attribute dollar specifications are changed to File 
Attribute Ssecifications by the RPG Filter. Most do not require further 
changes. Those not handled, or those requiring additionat information 
are documented in the following tattle. 


The defaults for the minimum and maximum values for attribute values may 
not be same on both the systems. For exact valuess refer to the 
B2000/ 300074000 BPG Reference Manuat. 


81600 B200C/300074C00 
AAOQPEN No equivalent. 
CASSET This hardware is not supported on 
the B2000/3000/4000 series systems. 
CLOSE Normally, ait fites are closed at 
end-of-jobs as specified in the 
RPG program cycle. To close files 
at end-~-of-filer specify an entry 
of S$ in Column 53 of the H 
specifications. 
DRIVE No equivalent. 
DNAME No equivalent. 
FAMILY Refer to the File Naming subsection. 
OPEN Not needed. Normallys alt files 


Preliminary Form 1090735 


September 17% 1984 
Page 3-2 


19:01 


B1000 TO B2000/7000C/400C SERIES SYSTEMS MIGRATICN GUIDE CO16270C 


are crened at beginning-cf-jobs as 
specified in the RPG program cycle. 


REFORM No ecuivatent. 
REORG Net applicable. 
TAG Not applicable. ALL 32000/73000/74009 


ISAM files are similar to #10006 
COBOL~74 IXSE8@ files. 


FILE NAMING 


‘The 82000/3000/4000 FAMILYNAME file attribute is the same as the 81000 
PACKID file attribute and is not related to the 81000 systems FAMILY 
attribute. There is no direct equivalent to the 81000 systems FAMILY. 


For pack filess the 87000 FAMILY attribute shoulc be ignored and the 
DISKID CPACKID) attribute should be changed to FAMILYNAME. 


For tape fitess the FAMILY attribute should be changed to FAMILYNAME 
since this stands for the tape name. 


The 82000/3000/4000 file names are restricted to six characters onty. 
In additions it will be simpler to Limit alt file names to upper case 
letters and numbers and begin with a tetter. Among the speciat 
characterss the hyphen (-) and underscore (_) cause the fewest problems. 


GENERAL LANGUAGE ELEMENTS 


81000 RPG supports up to 34 digit numberss while 820007300074000 RPG 
supports up to 22 digit numbers. 


B1iC000 RPG supports up to 541 character alphanumerics, while 
82000/3000/4000 RPG supports up to 256 character aiphanumerics. 


H SPECIFICATION 


There are a number of. additional features available on the 4H 
specifications in 82000/3000/74000 RP&. They are explained in the 
B2ZO00/3000/4000 RPG Reference Manual. The H specification difference 
is? 


COLUMN 15 


If at appears in this column and the operation code DEBUG does not 
appear in the ¢€ specifications, the 82000/3000/4COC RPG compiler emits 
an error. If debugging is desireds DEBUG must appear in the C 
specifications. 
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D SPECIFICATION 


B1000 RPG attows a file attribute detlar specification Contly SPACKID or 
$DISKID) before the D specification when tibrary files reside on disk 
other than the system disk. 82000/3000/4000 RPG dees not allow any file 
attribute dollar specifications for the 0 specification. 


F SPECIFICATION 
The F specification differences are : 
COLUMNS 7-14 


The 810600 and 82000/3000/4000 RPE compilers co not allow file names to 
exceed eight characters. 81000 RPG requires that the first seven, 
characters be unique among file names. 82000/3000/4000 RPG requires 
that the first six characters be unique among fite names. If the file 
is of type indexed fan I in column 322 of the F specification), the first 
four characters must be unique among file names. 


COLUMN 15 


Card files may net be dectared as combined on the 82C00/3000/4000 series 
systems. Changes in program functions may be required in this context. 


COLUMNS 20-23 AND 24-27 


The default block and record Lengths for disk cata files is 180 bytes on 
the 81000 series systemss while on the 820G60/3000/4000 series systems it 
is 100 bytes. Pack data files on both systems have the same default 
value of 180 bytes. 


On the B1000 series systems, the record sizes and bieock sizes of input 
files are taken from the disk file header. On the 82000/300074000 
series systems, these attributes must be specified exactly in the 
programs. 


The 62000/3000/4000 series systems dco net support 96 column card 
devices. 


On the 82000/300C/4000 series systems the record Length must be an even 
number of bytes. 


On the 82000/3000/4000 series systems» if the file is of the indexed 
type, then the calculation of block length is involved. The block size 
is always greater than the size recuired to accomodate the data portion. 
Refer to Section 9 of this manual fer cetails on indexed files. 
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COLUMNS 29-30 


87000 RPG allows a maximum key Length of 99 characters for &8-indexed 
fites. 82000/3000/4000 RPG allows a maximum key Length of 29 characters 
or digits. 


COLUMN 39 


If an entry of tL appears in this cclumnse the 382000/3C000/4000 RPG 
compiler requires an L specification. 


COLUMNS 40-46 


BI00G RPG accepts many device names that B2CCC/300T/4000 RPG does not. 
It will be simpler to use only generic device names. These are : 


READER 
PUNCH 
PRINTER 
TAPE 
DISK 
PACK 
CONSOLE 
DATACOM 


Oo “WU ON UT ON AD 
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Refer to the 82000/273000/4000 RPG Reference Manual for a complete List of 
walid device names. 


On the 682000/73000/4000 series systemss the cevice DISK implies 100-byte 
disk. The device name for 180-byte disk is FPACK. 


COLUMN 53 


82000/3000/74000 RPG does not support the L and R options. The option L 
is for Locking the file; the cotion R is for making the file input onty 
for other programs. This option is being evatuated for future 
implementation. 


COLUMNS 71-72 


On the 81000 series systemss program switches may be initialized with 
the EXECUTE statement or by the MODIFY control instruction. tf the 
Switches are not initializeds, conscele input is requested at program 
execution time. On the 82000/3000/4000 series systemss external 
indicators must be set by the INSERT clause in the EXECUTE statement. 
Console input is not requested after program B0J when all indicators are 
reset. 


—E SPECIFICATION 


The E specification differences are =: 
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COLUMN 43 


On the 682000/3000/4000 series systemss binary format is not allowed for 
pre~execution-time vectors. 
COMPILE-TIME VECTORS 

On the 81000 series systemse the CARDS and SOURCE files contain the RPG 
source statementss and the TABCRD file centains the compile-time 
vectors. On the 82000/3000/4000 series systemss compile-time vector 
data is included at the end of the source statements. Each vector must 
Start with a VVECTOCR card. Secause each vectcr starts with a VVECTOR 
cards it is possible to have other than the last vector as a shert 
vector. For more information on vectorss refer to the Extension 
Specifications and Vectors sections in the 82000/300C/400C0 RPG Reference 
Manual. 


81000 RPG allows compile-time vectcrs to be up te 96 characters Long. 
B2000/3000/4000 RPG Limits compile-time vectors to 8C characters. 


T SPECIFICATION 
The T specification differences are 3: 

COLUMNS 16-18 
The 82C000/3000/4000 data communications subsystem does not support the 
concept of a maximum number of stations per remote file. Therefores 
this field is ignored. 

COLUMNS 19-24 


The maximum messages field has teen moved ta columns 71-73. This field 
is not used currently and must be Left blank. 


COLUMNS 22-27 


The station number field has been moved to celumns 41-47. It is atso 
necessary to enter an $ in cotumn 46. 


COLUMNS 28-33 


The message lenscth fielo has been moved te cotumns 64-70. It is also 
necessary to enter an S$ in cotumn 63. 


I SPECIFICATION 


The I specification differences are 3: 
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COLUMNS 19-20 
B2Z0C0/3000/40060 RPG does not support spread card format. Thereforesr the 
indicator TR should not te specified. Change your spread card format 
data files to regular data files. 

COLUMN 42 
The B2000/73000/4000 series systers do not support hardware that can 
select stackers on input files. The compiler ignores any entry in this 
column. 

COLUMN 43 
82000/3000/4000 RPG does not support binary format. 

COLUMNS 61-62 


B1000 RPS allows a total match field size cf 256 characterse while 
B2000/ 300074000 RPG allows 255 characters. 


C SPECIFICATION 
The C specification differences are: 

CHAIN 
B2Z000/300074000 RPG requires the type and Length specified in FACTOR 1 
for indexed secuential files to be the same as the type and length of 
the key field for the file named in FACTOR 2. 

DMKEY 
On the BI0DGG series systemss the key condition must be specified in 
terms of elementary items when a group item key is invotved. The 
B2Z000/3000/74000 series systems allow only the group name. Refer to 
Group Item Keys In Section 7 of this manual. 


MOVEA 


B200C/2000/4C000 RPG reoauires either FACTOR 2 or the RESULT field to be 
an array. 


SETLL 
B2000/3000/4000 RPG requires the type and length specified in FACTOR 1 


for indexed sequential files to be the same as the type and length of 
the key field for the file named in FACTOR 2. 
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ZIP 
The B1000 ZiIPpec text may ciffer from the B82000C730CC/4000 ZIPped text. 
The 82000/3000/4000 series systems requires a period (.) to terminate 
the control text to be zipped. Text to be zipped must be examined 
carefully and changed appropriately if needed. 
0 SPECIFICATION 
The 0 specification differences are: 
COLUMN 16 
The 82000/3000/4000 series systems support hardware capable of selecting 
only up to four stackers. Stacker selections of 4-9 causes selection to 
the default stacker. 
COLUMNS 32-37 
The 82000/3000/4000 series systems do not support *PRINT function. 
COLUMN 39 


A blank-after with constantss and with the keywords UDATEs UDAYs UMONTHs 
UYEARs UTIME and JDATE are not supported. 


COLUMNS 40-43 


The B200073000/4000 series systems do not support hardware that can 
print on cards. 


COLUMN 44 


BZOOCB/ 300074000 RPG does not support binary format. 
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SECTION 4 
SORT 


The B2000/3000/4000 SORT UTILITY (SRTUTL)D program is designed to sort 
indexed sequential, relatives or sequential files by requested keys and 
to generate either an ADDROUT file acceptable to RPGs». or ai yew 
sequential file cf complete records. 


This section documents the differences between the B1000 SORT program 
and 82000/3000/4000 SRTUTL program. The 820C00/3C00/4000 series systems 
do not implement the B1000 SORT/UTILITY. 


SRTUTL ONLY AS A PROGRAM 


The B1000 SORT program can te either “compiled to Library” for 
subsequent execution or compiled and executed immediatety. The 
B2000/ 3000/4000 SRTUTL pregram can not be compiled to library for 
subsequent execution. 


Refer to the B2000/3000/4000 System Software Operation Guide Volume 2 
for execution instructions. 


UNSUPPORTED 81000 OPTIONS 


No other options excent for INCLUDE/DELETE, MEMCRYs PARITY DISCARD> 
RECORDS» TAPESORT and TAGSORT options are supported on the 
82000/3000/4000 series systems. The TAGSCRT option is equivalent to the 
ADDROUT option on the B2000/30C00/4C00 series systems. 


ALL unsupported 81000 options are currently being evaluated for future 
implementation in the 82000/73000/4000 SORT pregram to eliminate 
inconveniences on the part of the users. Hences the 82000/3000/74000 
SORT program will be able to accept 81000 SORT syntax. 


FILE STATEMENT 
The 81000 SORT program allows up to 16 8100G file input parts to be 
sorted. The 82000/73000/4000 SRTUTL currently allows up to 8 files to be 


sorted or merged. 


The B2000/3000/74000 series systems require a six-character file name. 
Yhe 81000 file name must be changec appropriately. 


The options OPTICNALs MULTI and VARIAELE are net supported on the 
82000/3000/4000 series systems. 


The hardware PAPER is not supported on the 82000/30CC/4000 series 
systems. 


The parity 0» ODDs Er EVEN for TAPE files are not supported on 
8200073000/74000 series systems. 
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An output file of the type PRINTER is not sugpertec on 82000/73000/4C000 
series systems. 


DATA TYPE DIFFERENCES 


The data types RSAs RSN and NC are not supported on the #82000/3000/4000 
series systems. 


INCLUDE AND DELETE STATEMENT 
The IN option of the INCLUDE and DELETE is not supported. 


When both INCLUDE and DELETE are specified in the 81000 the last 
specification followss while on the 82000/300C/400C series systems the 
INCLUDE is applied first. 


SORT STATEMENT 


The 82000/73000/74000 HOTSORT or DISKSORT statement will read a relatives 
indexed or sequential data fite sequentially and sort records using disk 
for the work files. 


ADDROUT FILE 


The TAGSORT option is ecuivatent to the 82000/2000/4000 ADDROUT option. 
ADDROUT will select the requested keys (from the KEY statement), 
concatenate thems write a file of records consisting of an &~«digit 
releative record number plus the concatenated keys. 


No changes to either the RPS or SCRT program is required for migration 
of ADDROUT files from the 81000 to the 82000/3000/40CO series systems. 
Howeversr the ABDROUT file used on the 82000/30C0O/4000 series systems 
must be created by the 82000/3000/40CC SRTUTL. 
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SECTION 5 
COBOL?4 


The majority of differences between 81000 COBOL74 and 982000/3000/4C000 
COBOL74 are due to machine dependent aspects. 


GENERAL DIFFERENCES 
RESERVED WORDS 


B1000 COBOL74 allows hardware rames such as DISK to be usec as file 
names although these are reserved words. B2000/23000/4000 COBOL74 is 
stricters and so these names must te changed. 


The List of words which are reserved in 8200C/3000/4000 COBOL74 is 
slightly different from the corresponding BIfOC COBOL?74 tist. Below is 
a list of wordss that are not reserved in 61000 COBOL74- but are 
reserved in 82000/3000/74000 COBOL74. These words must be changed if 
used as data names. 


ASCII DISMISS REMOVE 
8-2 800 OMSTRUCTURE SINGLE 
thru DUMP SPO 
B-4900 GCR 561 
BATKUP INTERROGATE thru 
CARDS MODIFY Sw 
CASSETTE OT SYSTEMERROR 
CHANNEL PAPERTAPE TAPES 
COLUMNS PHASE~ENCODED THEN 
DEADLOCK PRINTER TRACE-OFF 
DISK PUNTH TRACE-ON 
DISKPACK READER ZIP 


HEXADECIMAL LITERALS 


Qn the B1000 series systems» hexacecimal Literals are treated as numeric 
and can be used in arithmetic operations. 


B82000/ 3000/4006 COBOL74 emits a syntax error if a hexadecimal literal is 
used as an operand of an arithmetic operation. For examples ADD 1 a@8a 
GIVING AT is invalid. A run time error occurs on the #82000/3000/4C00 
series systems when an operand containing undigits (aAa thru aFa) is 
used in an arithretic operation. For examples ADD 4 TO AT witl resutt 
in a run-time error if At is PIC 9 COMP and contains @Aa. 


LDENTIFICATION DIVISION 


No changes are required. 
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ENVIRONMENT DIVISION 

OBJECT-COMPUTER 
STACK SIZE is used to specify the size of PERFCRE stack on the 81000 
series systems. On the 82000/3000/4000 series systemss it is used to 
specify the size of program stack. Refer to the 82000/783000/84000 
COBOL74 Reference Manual. 
INPUT-OUTPUT SECTION 

FILE-CONTROL. 
HARDWARE NAMES 
Most device names accepted by the 81000 COBOL74 compiler are accepted by 
the 8200073000/74000 COB0L74 compiler. QUEUE and REMOTE files are not 
available on the 82000/3000/4000 series systems. For the wigration of 
programs using these filess refer to Sections 10 and 11 of this manual. 


The device DISK on B82000/73C00/4000 series systems refers to 100-byte 
disk device. The device name for 180 byte disk is DISKPACK. 


SORT/ MERGE 


The use of both disk and tape for the same sort file is not allowed on 
the 820C0/3000/4000D series systems. Change as follows: 


B1000: 
ASSIGN TO SORT CDISK CAND integer {TAPE }]] 
{TAPES} 
82000/3000/4000: 
ASSIGN TC SORT { DISK 3 


{ DISKPACK } 
or 


ASSIGN TQ SORT integer € TAPE } 
€ TAPES } 


FILE NAMES in the SELECT clause must have the first six characters 
unique on the #82000/3C00C/7400C series systems in order to use MCP file 
equation. 


INDEXED FILE NAMES must have the first 8 characters unique on the 81600 
series systems. The first 4 characters must be uniague on the 
82000/3000/4000 series systems. 
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DATA DOIVISION 
FILE SECTION 

FD 
On the 81000 series systemsr if the record size and tlock size are not 
specified for input or I-00 disk files by the RECORD CONTAINS and the 
BLOCK CONTAINS clausess they are taken from the cisk file header. On 
the 82000/3000/74000 series systemss these attributes must always be 
explicitly specified. 
The DATA RECORDS clause is used for documentation curposes only tn B10C0 
COBOL74. Any inconsistencies are ignored by the compiler. in 


B2000/300074000 COBOL74+ the names and the number of records must match 
with the specified ones. Any inconsistencies are flagged as errors. 


RECORD DESCRIPTION 
The B1000 COBOL74 compiler does not check the type compatibility of the 
literal with the data name for which that value is assigned. The 
82000/300074000 COS8OL74 compiler recuires that titerats be type 
compatible with the corresponding data nares, For example, the sign 
must be removed from a titeral assigned to an unsigned data name. 
WORKING-STORAGE SECTION 
Refer to Record Bescription above. 
COMMUNICATION SECTION 
This feature is not available in 82000/3000/400G COBCL74. 
PROCEDURE DIVISION 

CALL 
B20C0/3000/74000 COBOL74 reauires that the called program have the same 
PROGRAM-IDB and object program name. The object program name must be a 


valid file name on the 82000/3000/74000 series systems. 


The statement CALL SYSTEM DUMP has no parameters. BIOO0C COBOL74 
programs using this statement must be changed. 


CLOSE 


The statement CLOSE WITH RELEASE must be followed by a commas semi-colon 
or a period. 


The B1000 series systems allow a temporary file to be reopened in OUTPUT 
mode as in the following sequence: 
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OPEN OUTPUT DISK-FILE 
CLOSE DISK~FILE 
OPEN INPUT DISK-FILE 
CLOSE DISK-FILE 
OPEN OUTPUT DISK-FILE 


On the B2000/3000/4000 series systems, the Last CPEN must be preceded by 
a CLOSE PURGE or changed to an OPEN EXTEND. 


copy 


External file names used with the COPY statement must be changed to 
valid 82000/73000/4000 file names. 


B1000 e2coo/3000/400C 


COPY F2/F3 ON F4 COPY F353 ON F141. 


MERGE 


The CLOSE option for the GIVING file must be changed so that for disk 
filess instead of RELEASEs the PURGE option is used. 


SORT 


The TAG-SEARCH and TAG~KEY ceptions are not allowed on the 
B20C00/3000/4000 series systems and must be deleted. 


The close option for the USING file must be changed so that for disk 
files, SAVE and RELEASE are changed to DISMISS and PURGE respectively. 


UNSTRING 
On the 61000 series systemss the overflow caused by the POINTER does not 


affect the otd vatue of “INTO" identifier. The old value is erased 
under such conditions on the B20C0/3000/4000 series systems. 
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COMPILER CONTROL IMAGES (DOLLAR OPTIONS) 


The following options must be changed to their equivalent options on the 
B2000/73000/4000 series systems: 


81000 B2000/3000/400C 
<non-numeric Literai> NEWID “Literat” 
LIBROOLLAR LIBR$- 
LISTDOLLAR LISTS 
MERGE MERGE C[<mfid>/] <fid> U<device>] 
NEW NEW [<efid>s/] <fid> (<device>] 


The following options are not applicable on the 82CC0/3000/4000 series 
Systems and must be deleted. 


DEBUG ERRMESS 

DEBUG TIME 

LisTi 

$E€Q without parameters 
STATISTICS 

XSEQ 
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SECTION 6 
COBOL68S 


It is recommended that 81000 COBOL68 programs tbe converted to 
B82000/3000/4000 COBOL74 for the fellowing reasons: 


1. COB0L74 is being enhanced. No new features are being added to 
B2000/3000/4000 cosoLé6a. 


2- B2O007300074000 COBOL&2 dees not support ISAM files and DMSII. 
The B2000/73C000/4000 COBOL74 ISAM is fully compatible with RPG. 


3. All features available in 81000 COROLEéS are either available with 
the 82000/3000/4000 COB0L74 compiler or missing from both CO8SCLS 
on the B2000/3000/74000 series systems. 


4. Most of the desitrable Burroughs extensicns in COBOL68 have been 
added to COBOL?74. 


It is recommended that you use the Burroughs to Burreughs COBOL filter 
to assist you with the migration. The 8200G/3000/40C0 coBpolL filter is a 
fully supported program product. The filter witt transtate most 
constructs and flag the remaining constructs for manual changes. 


This section will help you to handle 81000 COBOLEé8 constructs that are 
not transtated by the filter to B2000/3000/74C00 coeBoL74. 


Refer to Secticn 2 for some tips on transferring your programs from the 
81000 to B2000/73C0CO/4000 series systens. 


GENERAL INFORMATION 
NUMERIC LITERALS 


The maximum Literal size is 166 digits in 87006 COSOL6é&. 
82000/3000/4000 COB80L74 ailows 16C digits if the literal is not used in 
arithmetic operations. Otherwise, 98 digits are allowed. 


HEXADECIMAL LITERALS 


On the 871000 series systemss hexadecimal tLiterats and data names 
containing undigit values (@A@ thru 3Fa) are treated as numeric and can 
be used in arithmetic operations. 


B2000/3000/4000 COBCL74 emits a syntax error if a hexadecimal literati is 
used as an operand of an arithmetic operation. For examples ADD %t a82a 
GIVING Al is invalid. A run time error occurs on the 82000/3000/4000 
series systems when an onerand containing undigits (a@Aa thru aFfa) is 
used in an arithmetic operation. For examples ADD 1 TO AT wilt result 
in a run-time error if Al is PIC 9 COMP and contains sAa. 
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HIGH VALUE, LOW VALUE 
In 81000 COB80L4S8s high values for all data items are all display 9%s5s 
€{aF9a) Low values represent the lowest internal coding sequence 
{blanks). For a signed numeric computational field they represent +0. 
In 82000/3000/400C0 COBOL74, high values for atl data types are all GFF. 
Low values for numeric and alphanumeric data types are atts00a. Low 
values for numeric computation and numeric edited fields are a@FQa. 


SPECIAL REGISTERS 


In B1000 COBOL&S8, the TIME format is HHMMSST» 7.6.2 PIC 947) COMP. In 
82000/3000/40600 COS0L74, the format is HHMMSShhe icecr PIC 9¢(8) COMP. 


In B2000/3000/74000 COBOL?4s program switches are handted cifferenttly. 
Refer to PROCEDURE DIVISION in this section. 


YDOENTIFICATION OIVISION 

The MONITOR facility can be simulated in 8200C/30C0/4000 COBOL74 by the 
USE FOR DEBUGGING declarative. Refer to the 82000/83000/84000 cCoB0L74 
Reference Manual for detaiis. 


ENVIRONMENT DIVISION 


INPUT-OUTPUT SECTION must not be specified untess there are files 
declared in the program. 


Alt sections and paragraphss if specified,» must appear in the order 
Given in the 82000/83000/84000 COBOL?74 Reference Manual. 


CONFIGURATION SECTION 

SOURTE-COMPUTER 
B2000/ 3000/4000 COBSGL74 provides an acditional features WITH DEBUGGING 
MODE. This is used for conditional compilation. Refer to the 
B200G/B3000/84000 COBOL74 Reference Manual for details. 

OBJECT-COMPUTER 
SORT MEMORY SIZE is to be specified with the SORT verb verb 


B2C00G/ 3000/4000 COBOL74. It is moved to the SORT verb by the COBOL 
filter. Changes may be neccessary to the actual memory size. 
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SPEC ITAL-NAMES. 


Mnemonic names may be specified in this paragraph for printer channels 
in order to translate the 81000 construct 


WRITE <file> BEFCRE CHANNEL <number>. 


CURRENCY SIGN characters “Ls “=" and “/" are not allowed in 
B2000/300074000 COBCL74 but are altowed in 81000 CCBCL63. The character 
"I" has a special meaning in the PICTURE string in 82000/3000/46000 
COBOL74. 


INPUT-OUTPUT SECTION 
FILE-CONTROL 
This must not be an empty paragraph. 


RESERVE <n> ALTERNATE AREAS is equivalent to RESERVE <nt#1> AREAS. The 
filter reduces any higher numbers to the 82C0O0C/3000/4000 series systems 
maximum of 9 areas for 8 alternate areas). 


FILE-LIMIT is not supported by B200C/30C0/4CCO COBCL74. 
HARDWARE NAMES 


Most device names accepted by 81000 COBGL68 are also accepted by 
B2000/73000/4000 COBOL74. The cevice names CARDI6s CASSETTE and REMOTE 
have no equivalents on the 82000/3000/4000 series systems. Programs 
using them require changes. 


The COBOL filter changes alt disk device names such as DISK or PACK to 
DISKPACK since this stands for 180 byte disk on the 982000/3000/4000 
series systems. The device DISK refers to 106 byte media on the 
820060/3000/4000 series systems. 


FILE ATTRIBUTE OPTIONS 


The word SINGLE must immediately follow a hardware name. This option 
has a different meaning on the 82000/300C/4000 series systems but has no 
adverse effect on migration. 


SORT/MERGE 


On 82000/3000/40C00 series systenms, the use of both cisk and tape is not 
allowed for the same SORT file. <Alsosr the number of tapes for tape sort 
should be specified as a constant. If DISK was specified originatty-, 
the COBOL filter changes it tc DISKPACK. And if tapes were useds 3 
tapes are assigned. Further changes may be required if different 
options are desired. 
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In B2000/300074000 COBOL74s only a file assiaqned tc SCRT or MERGE can be 
described with an SD iain the FILE SECTION. The filter detects this 
condition and emits a warning. Howevers the word SORT or MERGE must be 
inserted manualty in this paragraph. 


FILE NAMES in the SELECT clause must have the first six characters 
unique on the 82000/200C/4000 series systems in order to use MCP file 
equation. 


INDEXED FILE NAMES must have the first 8 characters unique on 81000 
series systems. The first 4 characters. must be unique on 
B2000/3000/4000 series systems. 


The MULTIPLE FILE CONTAINS clause has a cifferent syntax in 
B200C/ 3000/4000 COB80L74. Howevers it is used for documentation purposes 
only on both systems. 


B1000: 
MULTIPLE FILE < DISKPACK <ciskpack-id> } 
{ TAPE <multi-file-id> } 
CONTAINS <file-name> € POSITION <integer> ] ... 
8200073000/4000: 


MULTIPLE FILE TAPE CONTAINS 
<Ffile-name> [ POSITION <integer> J]... 
VALUE OF FAMILYNAME can also be specified. 
DATA DIVISION 
FILE SECTION 
FD 
RECORDING MODE ts changed to the attribute clause VALUE OF EXTMODE by 
the COBOL filter. <A warning is emitted if further changes are required. 
The recording mode may be specified in two ways on the 82000/3000/4000 


series systems. 


CCDE SET IS <atphabet-name> 


or 
VALUE OF EXTMODE I8 <€ EBCDIC > 
{ NONSTANDARD } 
{ BINARY > 
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Refer to the B2C0C00/30C00/4000 CO80L74 Reference Manuat for details on the 
use of these two clauses, Also related is the specification of a 
PROGRAM COLLATING SEQUENCE in the OGBJECT-COFPUTER paragraph and the 
specification of an alphabet name in the SPECIAL-NAMES paragraph. 


It should also te noted that all the data-items in files recorded in 
modes other than EBCDIC must be declared as DISPLAY and if they are 
signed numeric then 


SIGN IS SEPARATE must be specified. 


For the migration of programs using QUEUE files anc REMOTE files, refer 
to Sections 10 and 11 of this manual. 


RECORD CONTAINS and BLOCK CONTAINS 


In 81000 COBOL&Ss the RECORD CONTAINS clause is for documentations and 
the length computed from the record descriptions is used. In 
B2000/3000/4000 COBOL74s a syntax error is given if the record length 
computed from the record descriptions dees not match the value specified 
in the RECORD CONTAINS clause. This clause must be either removed or 
corrected to have the correct record length. 


On the B1000 series systems, if the record size anc block size are not 
specified for input or I-0 disk filess they are taken from the disk file 
header. These attributes must always be explicitly specified on the 
82000/3000/74000 series systems. 


The DATA RECORDS clause is used fer documentation purpose only in 81000 
COBOLG8. Any inconsistencies are ignored by the compiler. In 
B2000/73000/74000 COBOL?4,s the names and number of records must match with 
the specified ones. Any inconsistencies are flagged as errors. 


RECORD DESCRIPTION 
USAGE ASCII is not allowed by 8200073000/74000 CoboL74. 
in B1000 COBOL6é8s the OCCURS DEPENDING ON clause is used for 
documentation purposes only. B20CQ/3000/40C0 COBCL74 reouires this 
clause with variable Length tables and range checking is performed. 
PICTURE 
In 81000 COBOL&S- if J iis rot the lLeft-most character in a picture 
strings it reinitiates zero suppression. This feature is not available 
fin B2000/3000/4000 COBOL?74. 
B1000 COBOL6&8 allows up te 160 positions fer decimal scaling whereas 


@200G/3000/4000 COBOL74 atlows up to 98 positions only. Negative 
scaling is not allowed by 82000/3000/4000 COBGL74. 
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VALUE 


The 81000 COBOLE6é8 compiler does not check the type compatibility of the 
literal with the data name for which that value is assigned. The 
820007 3000/4000 COBOL74 compiler requires that Literals be type 
compatible with the corresponding cata names. The filter handles most 
such cases. For exampler the sign is removed from a titeral assigned to 
an unsigned data name. Changes are required in other cases such as a 
numeric Literal assigned te a numeric edited data item. 


COPY 


External file names used with the COPY statement must be changed to 
valid 82000/300C/400C file names. 


B7000 e200C/3 0007/4000 
COPY FI/F27F3 COPY F2 ON F1. 
WORKING-STORAGE SECTION 
Refer to Record Description above. 
PROCEDURE DIVISION 
Program switches 


In B1000 COBOLS68s+ program switches are special registers which can be 
set to any value either by the program or externally. They can be used 
like data-names. In 82000/3000/4000 COBOL74, program switches can only 
be tested by the program. Their values can te set onty externally and 
only “on™ and “off™ values are allowed. Refer to SPECIAL-“NAMES in the 
82000/83000/84000 COBOL74 Reference Manual for the syntax relating to 
the use of switches. There ares howevers system intrinsics available to 
simulate 81000 types of program switches. To use these intrinsicss 
eight data-items must declared in WORKING-STCRAGE SECTION as below. 
They may be used as the <identifier> in the CALLS shown subsequently. 


C1 PROGRAM-SWITCHES. 
C5 SwW8-xxX PIc 9 COMP. 
05 SWi-xx PIC 9 COMP. 


as af 
és bs 
s@ 6% 
ue 86 


O05 Sw7-xx PIC 9 COMP. 


CALL “INTRINSIC GETSWITCH” GIVING <identifier> 
CALL “INTRINSIC SETSWITCN™ USING <identifier> 
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With the RSWITCH options the COBOL filter will insert the 
WORKING-STORAGE declarations and change SW1 thru SW& to SWI-XX thru 
SwWS-xKX. The CALL to the intrinsics must be inserted manually at the 
appropriate places. 


Comparisons 


B2000/3000/4000 COBOL74 recscuires that the operands of comparisons are 
compat ible. For example, a computational numeric data item cannot be 
compared with SPACES. 


ELSE Clauses 


B1000 COBOL6& altows ELSE clauses to be used in a number of situations. 
The ELSE clause can follow the ON SIZE ERROR clauses the INVALID KEY 
clauses the AT END clauses the AT END-OF-PAGE clauses and the IF verb. 
In B82000/3000/74000 COBOL74,- the ELSE clause can te used only with IF and 
not with any cf the other clauses. Alsos while B1000 COBCL68 permits 
any statements to follow these conditional ctausesr oanty imperative 
Statements are allowed by 82000/30C0/4000 COBOL74. Portions of programs 
may have to be recoded to handle this difference. 


581000: 


READ <fite> 
AT END <statement~1> 
ELSE <statement~-2>. 


682000/3000/4000: 


READ <file> 
AT END <imperative-staterent>. 


CLOSE 


The meaning of LOCK in 82000/3000/4000 COBOL74 is different from that in 
21000 COBOL68. A files if CLOSEd with LOCK, cannot be reopened. 


The word RELEASE must be followed by a commas semi-colonse or period 
unless the next statement is a RELEASE statement. 


The 81000 series systems atlow a temporary file to be reopened in the 
CUTPUT mode as in the fotltowing sequence: 


OPEN OUTPUT DISK-FILE 
CLOSE DISK-FILE 
OPEN INPUT DISK-FILE 
CLOSE DISK-FILE 
CPEN OUTPUT DISK-FILE 
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On the 82000/3000/4000 series systemss the Lest CPEN must be preceded by 
a CLOSE PURGE or changed to an OPEN EXTEND. 


COPY 


External file names used with the COPY statement must be changed to 
valid 682000/3000/4000 file names. 


B1000 B2000/3CCC/40C0 
COPY FI/F2/F3 COPY FZ ON Fi. 
DIVIDE 


Use of the 81000 COBOLS8 opticn MOD must be changed as follows: 
B1000 :. 
Ve DIVIDE MOD <identifier-1> INTO <identifier-2> 


re DIVIDE MOD <identifier-1> BY <identifier-2> 
GIVING <identifier-3> 


82000/3000/4C00: 


1. DIVIDE <identifier-2> BY <identifier-1> 
GIVING <temp> REMAINDER <identifier-2> 


Le DIVIDE <identifier-1> EY <identifier-2> 
GIVING <temp> REMAINDER <identifier-3> 


DUMP 


DUMP is not allowed in 82000/73000/4000 cOBCL?74. DEBUG can be used 
instead. Refer to USE FOR DEBUGGING in the 82000/83000/84000 CoOBOL?74 
Reference Manual. 


MERGE 


Yn BI1000 COBOLS58,s the WITH <file-naeme> option can be used to define a 
collating sequence. In B2000/30C0/4000 COBOL74, EBCDIC and ASCII are 
the pre-defined collating sequences. Other collating sequences can be 
defined in SPECIAL-NAMES. 


MOVE 


If the sending field is a literal Cineluding figurative constants), 
B82000/3000/4000 COBOL74 requires that it must be type compatibite as the 
receiving field. For example, SPACES cannot be moved to a numeric data 
item. 
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OPEN 


The 81000 COBOL&8 option C-1I is net availatle in 982000/73000/4000 
COBOL74. A program using this option must be recoded by the use of OPEN 
OUTPUT, CLOSE WITH DISMISS and OPEN INPUT or I-0 at appropriate 
Locations. 


The 81000 optionss PUNCH, PRINTI28% INTERPRET and STACKERS relating to 
the use of 80 or 96 column data recorders are not supported by the 
B2000/300074000 series systems. 


READ 


In 81000 COBOL68, use of the AT END clause or the INVALID KEY clause is 
not mandatory. B2000/3000/4000 COBOL74 requires the AT END clause for 
sequential access and the INVALID KEY clause for random access unless a 
USE procedure has been specified for the file. 


The other aspects of the AT END clause have been mentioned eartier in 
this section. 


RETURN 


In 81000 COBOL68&s* the AT END clause is optional. B20C0/3000/4000 
COBOL74 requires the AT END clause to be specified. Rules mentioned 
earlier in this section must be followed. 


REWRITE 


The INVALID KEY clause must be specified in s82C0C/3000C74000 cosOoL74 
unless a USE procedure has been coded for the file. As with the AT END 
clauses only Imperative statements may follow the INVALID KEY clauses 
and ELSE is not allowed. 


SEEK 

The B1000 series systems altow cositioning of a file at a particular 
record using an alphanumeric key which is changed into the ordinal 
number of the record by specifying 


WITH KEY CONVERSION 


On the 82000/3000/4000 series systemse the key conversion must be 
performed explicitly before the SEEK. 


SORT 


The WITH <file-name> clause is used to establish a user-specified 
collating sequence in 81000 COBOL68. In 82000/3T00/4000 COBOL74 the 
pre-defined collating sequences are ASCII and EBCDIC. Other types of 
collating sequence can be defined in SPECIAL-“NAMES. 
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The RESTART option in 81000 COECLS& can te converted to the BREAKOUT 
option in B2000/3000/4000 COBOL74. Since this is not an exact 
equivalents some changes in the program togic may be necessary. Refer 
to the B82000/83000/84000 COB80L74 Reference Manual for details. 


START 


As with READ, INVALID KEY must be specified in E2C0C/37000/4000 cCOBOL74 
1f +a USE procedure is not specified for the file. The INVALID KEY can 
be fotlowed by imperative satements onty and ELSE is not allowed. 


USE 


USE FOR KEY CONVERSION is not allowed in B200G/300C0C/4000 COB0L74. This 
procedure must be moved out of DECLARATIVES and must be expticitly 
performed. 


USE FOR @=-EMPTY or @=-FULL is invalid. Refer te Section 10 for the 
migration of QUEUE files. 


WAIT 


In B100G COBOL6&s the waiting time is specifiec in tenth of seconds. In 
82000/3000/4000 COBOL74 it is specified in seconds. 


WRITE 


In 82000/73C00/4C00 COBOL74s the CHANNEL clause 38s not allowed. If 
channels other than channel 1 are useds they must be equated to mnemonic 
names in the SPECIAL-NAMES paragraph and these names should replace the 
CHANNEL clause. 


In B2000/72000/4000 COBGL74- only imperative statements are allowed 
following the AT END-OF-PAGE or AT EOP clause. The ELSE clause must not 
be specified. 


In B2000/3000/400C0 COBOL?4, the INVALID KEY clause is required for 
random writes if there is nc appropriate USE precedure for this file. 
This clause can be followea by imperative statements only and an ELSE 
branch cannot be specified. 


COMPILER CONTROL IMAGES CDOLLAR OPTIONS) 


The syntax for specifying compiler control images differs between the 
two systems. 


81000 e2000/3000/4000 

$ <option> % SET <option> 

$ NO <option> $ RESET <option> 
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The fotlowing options must te changed to their ecuivalent options on the | 
82000/3000/4000 series systems: | 


81000 
<non-numeric Literal> 
ANSI 
CONTROL 
MERGE 
NEW 
SPEC 
SUPPRESS 


REF 


B2000/3000/40C0 
NEWID "Literal" 
FEDLEVEL = 4 
LISTS 
MERGE (<mfid>/}) <fid> [<device>] 
NEW C<nfid>/] <fid> [<device>] 
SUMMARY 
WARNSUPR 


DEBUG 


The following options are not applicable on the 82C000/3000/4000 
systems and must be deleted: 


CARD 

NO DEBUG 

NOCOP 

RPGTAGS 

SINGLE 

STACK <number> 


The XREF dottlar option may be used to 
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SECTION 7 
DASDL AND OMSII 


B1000 DMSII is basically a subset of 82000/30C0/4000 OMSII. This 
section provides the changes necessary to a DASDL source deck to make it 
acceptable to the B2000/3000/4000 DASOL compiler. 

ADDITIGNAL FEATURES 


The following is a tist of significant features available in 
B2000/3000/4000 DMSII that are not available in B8100C oOMSII: 


1. Up to 990 structures 
2. STATISTICS option in the OPTIONS statement 
3. DIRECT and RANDOM data sets 
4. Embedded standard data sets with more thar one spanning set 
5. On-Line dumps 
6. Menu-driven integratec OMSII utilities 
7. ROLLBACK recovery 
8. CHECKSUM and BUFFERS attributes in physicat attributes 
9. Arithmetic expressions in WHERE conditicns 
10. BC0OLEAN and FIELD data types 
11. Duplicate Audit 
12. On-line Reconstruct 
COMPILER CONTROL IMAGES (DOLLAR OPTIONS) 


The syntax for compiler control images differs as fotlows: 


81000 B2000/3C00/40C00 
¢ <option> $ SET <option> 
$ NO <option> $ RESET <option> 


The B81000 compiler options and their 8200C/3CO0C/4000 equivalents are 
listed below. Options not Listed are the same on both systems. 


81000 82000/3000/4000 
COBOL CHECKCOBOL 
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COBOLIB Not applicable. The compilers on the 
B2000/3000/4000 series systems read the 
description (dictionary) file directly. 
This eliminates the need for Library files. 


CONVERT UPDATE 

DEBUG Not available. 

FILE Most of this information is always produced. 

INCLUDE Not available. 

INCLNEW Not applicable. 

INITIALIZE Structures are initialized if UPDATE or 
REORGANIZE is not specified. 

LISTINCL Not available. 

MERGE MERGE “"<file id>™" <device> 


<file id> is NEWSCU by default. <device> 
is DISK by default. 


NEW NEW “<file id>” <device> 


<file id> is NEWSOU by default. 
<device> is DISK by default. 


RPG, RPGTII CHECKPRG 


RPGLI3 Not applicable. The compilers on the 
B2060/3000/4000 series systems read the 
description (dictionary) file directly. 
This eliminates the need for Library 


files. 
SEQUENCE or SEQUENCE or SE@ (Default base and ine are 10). 
SEQ (Default 
ine are 1000). 
SINGLE Not needed. Set by default. 
SOURCE Not available. 
SOURCTECNLY Not applicable. 
STRUCTURE Structure information is always precuced. 
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STANDARD Not available. 
SUPPRESS WARNSUPR 
TABLESIZE Not available. 
TAPE Not available. 
VERSIONCHECK Not available. Version checking cannot be 
Suppressed. 
OPTIONS 
AUDIT 


if you have AUDIT RESET+ remove the RESTART DATA SET. 82000/3000/74000 
DMSII does not support the SM AUDIT SETZRESET command. 


KEYCOMPARE 


KEYCOMPARE is reset by default by 81000 DMSII. It is set by default by 
82000/3000/4000 DMSII. 


PARAMETERS 
SYNC POINT 


The default is 10 transactions in £1000 oOMSII anc 5 transactions in 
B2000/3000/4000 DMSII. 


CONTROL POINT 


The default value is 5 syre points in 81000 DMSII and 10 syne points in 
#2000/3000/4000 OMSIT. 


In view of above defaultssr you may have to make the necessary changes in 
the parameter specifications. 


MAXWAILT 


Vhis option is not supported in B8200C/73000/4G00 OMSII and must be 
deleted, 


AUDIT TRAIL 
BLOCKSIZE 


Examine the BLOCKSIZE specification. If only an integer is specified,s 
then the word BYTES must be added after the integer. 


KIND 
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To assign the audit trail to disk cr pack, refer to <file assignment 
specification> in the B2C000/3000/4CCO DMSII Reference Manual. The audit 
trail cannot be assigned to tape in 82000/300074000 DMSII. 


SECURITYTYPE and SECURITYUSE 


Security options are not available in 820CC/300C/40CO DMSII and must be 
deleted. 


DATA SETS 
ORDERED EMBEDDED DATA SETS 


Ordered embedded data sets are not supported in 82C0C0/3000/4000 dDMSII. 
Convert the ordered embedded data sets to standard embedded sets. The 
associated ACCESS TO must be changed to SET OF. 


This change means that the one structure and file on the 81000 series 
Systems become two structures and files on the 82C00/3000/4000 series 
systems. They are, the data set and the data set*s set. Host Language 
programs that access orcered data sets directly should be changed to 
FIND the data set via the set. 


VARIABLE FORMAT RECORDS 
Variable format records are not supported in 382000/3000/4000 oMSII. 
Change all such record descriptions to fixed forrat records by retaining 
the tLargest length format. ALt other formats must be coded in the host 
language programs. 
INITIALVALUE 
INITIALVALUE = must be changed to INITIALVALUE 158. 
SETS AND AUTOMATIC SUBSETS 
GROUP ITEM KEYS 
B1000 OMSII allows group items as keys» but always requires the RPG or 
COBOL program to specify each of the elementary items in all selection 
expressions. B2000/3000/4000 OMSTI requires the host tanguage to 
specify the group item in the selection expression. There are two ways 
to solve this probtem: 
1. Change the DASDL to specify ali the elementary items as keys. 
2. Change the COBOL or RPG programs that use the group key. 
Leaving the key as a group item reduces the usefulness of the generat 
selection expression. Furthers tleaving the key as a group item and 


changing the programs may introduce semantic differences in group = and 
elementary compares. Accordinglys it is recommended that you change the 
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DASDL-, not the programs. 
INDEX RANDOM ACCESS 


INDEX RANDOM access is not availabtle in 82000/3000/40C0 OMSII. It must 
be changed to INDEX SEQUENTIAL. 


PHYSICAL ATTRIBUTES 
SPLITFACTOR must be changed to LOADFACTOR. 


AS INDEX RANDOM is not supported in B2000/300074000 OMSII, MODULUS is 
irrelevant and must be deleted. 


In the case of List structuress the BLOCKSIZE attribute in 87000 DMSIT 
are specified in TABLES. Change TABLES to the corresponding 8YTES or 
ENTRIES after calculating the number of BYTES or ENTRIES. 

TABLESIZE is specified for List attributes in @1000 as the number of 
entries that fit in one disk sector. This attribute is not supported in 
BP2000/ 3000/4000 DMSII and must be deleted. 


The security attributes SECURITYTYPE, SECURITYUSEs and SECURITYGUARD are 
not supported in B82000/3000/40C0 DMSII and must te deleted, 


REMAPS 
RESTART DATA SET 
The restart data set cannot be remarped in 820CC/3000/4000 dDASDL. 
REMAP REGROUPING 
Restructuring of the data in the remap or <remap regrouping> is not 
allowed itn s82000/300C74000 OMSII. Alt such regroupings have to be 


grouped according to the sequence in which they are described in the 
original structure. For example: 


#71000: 
EMPLOYEE DATA SET 
{NAME GROUP (© FIRSTNAME ALPHAC10)2 
LASTNABE ALPHAC1IO) d-¢ 
TITLE ALPHAC6é) D, MAXRECORDS = 1006-2 


RMEMP REMAPS EMPLOYEE 
CRMNAPE GROUP C(LASTNAME ALPHA(10);7 
FIRSTNAME ALPHAC10)) 
RMTITLE = TITLE HIDDEN 9 SELECT CRMTITLE NEQ ™ “Ds 


The remap must be changed as fellows: 
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B200C/ 3000/4000: 
RMEMP REMAPS EMPLOYEE 
C(RMNAME = NAME GROUP CFIRSTNAME ALPHA(C1O0); 
LASTNANE ALPHA{C10))- 
RMTITLE = TITLE HIDDEN 9 SELECT CRMTITLE NEG “ “); 


REMAP SUBSETS 


The name of the object data set must not be specified in 82000/3000/4000 
DASDL. Change as follows: 


A~SUBSET OF A~DATA-SET 
A~SUBSET 


81000 = R-SUBSET 
B2000/73000/74000 = R-SUBSET 


INITIALVALUE 
ZNITIALVALUE must be changed to INITIALVALUE IS. 
LOGICAL DATA BASES 
SECURITYGUARD can be specified for the entire data base on B1000 OMSII. 
This feature is not supported in B20CC/3000O/4000 DBMSII and must be 
deleted. 
AUDIT AND RECOVERY 


Recovery can be initiated by the RC command on 81000 series systems and 
the IR command on 8200073000/4006 series systems. 


81000 CLEAR/START recovery is equivalent to e8200C/2CCC/4C0C0 HALT/LOAD 
recovery. 


UPDATE AND REORGANIZATION 


On the 81000 series systemss reerganization is initiated by executing 
the DMS/REORG.READ program which zip executes DMS/REOCRGIWRIT. On the 
B2000/3000/4000 series systemss it is initiated by the IR keyboard input 
command. 
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SECTION 8 
DMSII HOST LANGUAGES 


DMSIE HOST LANGUAGE SYNTAX 


81000 odMSII host syntax is basicattly a subset of the 82000/3000/4C006 
OMSII host interface. A few differences are described betow: 


The defaults for AUDIT at S8EGIN-TRANSACTION and END-TRANSACTION are 
different en the two systems. On 81000, the defaults are 
BEGIN-TRANSACTION AUDIT and END-TRANSACTION NO-AUDIT. On the 
B2000/3000/7400C0 series systemsr the defaults are B8EGIN-TRANSACTION 
NO-AUDIT and END-TRANSACTION AUDIT. 


In 82000/3000/4000 DMSII, standard embedded data sets can be accessed 
onty via a set or a subset. FIND or MODIFY CLOCK) by physical order is 
not allowed. Program source modification to include the set name which 
corresponds to the 81000 access must be made. 


Variable format data sets are net supported by B2000/30G0/4000 DMSITI. 
This difference must be resolved while transfering the DBASDL and = the 
data base. Due to thiss the CREATE and RECREATE verbs must not specify 
the record type. The COBOL REDEFINES clause can be used in the programs 
using the variable format data set. Thuss many of the originat data 
names would be preserved and the program would rormatly require few 
other changes. RPG programs must not specify the record type in Columns 
45-70 of the record tine on the Output Specifications. 


In 81000 DMSII+v selection expressions in a random FINO or MODIFY CLOCK) 
via a set ordered by a group item must contain the elementary itemss and 
not the group item itself. On the other hand, 82000/73000/4000 DMSII 
requires the group name to be used. Use of the elementary items wilt 
result ina syntax error. For the DASDL changes required to avoid this 
problems refer to Group Item Keys in Section 7 of this manuat. 


DMSII HOST LANGUAGE SEMANTICS 
DMSII Exceptions 


The few semantic differences between the two systems Lie mostly in the 
area of DMSII excention handling. In many caseser these differences do 
not require program modification because of the fotlowing reasons. 


Most programs do not have elaborate togic to handte every kind of 
exception. Some exceptions are handled by program logics and the action 
in the remaining cases is usualty to print or display that an exception 
occurred and report the exception. In these casess even if the 
exception were cifferent or returned under different conditionssr program 
modification wilt not be required. 
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In 81000 OMSII+» the ABORT exception is not returned at END-TRANSACTION 
unless END-TRANSACTION SYNC was specified. B2000/30G0/4000 OMSII can 
return an ABGRT at END-TRANSACTION. Proorams not equipped to handle 
such an exception may require modification. 


In 871000 DMSIIvy NCRECORD is returned only when an operation related to 
an embedded structure has no current parent record. In most casess this 
is aoprogramming error. Im 82000/3000/4000 DMSIIs NORECORD is returned 
in some additional situations. B2OC0/80CC/4CCH DMSIY witt return a 
NORECORD exception whenever there is no current parent as well as when 
there is no current record. Operations such as STORE without any record 
(81000 ODMSII returns NOTLOCKED) will get a NCRECORD exception. 
Situations where 82000/3000/400G oOMSII returns a NORECORD exception 
normally arise due to programming errors. 


Other OMSII Exceptions 


Below is a List cf other differences which are of Little consequence in 
most programs: 


1. 81000 DMSII returns an AUDITERROR exception when a CLOSE is 
attempted in transaction state. B20CR72CCC/400C0 OMSII returns 
CLOSEERRGR. 


2.2 8160GG0 DMSII returns READONLY if a program cpens a database for 
INQUIRY and attempts a BEGIN-TRANSACTICON or END~TRANSACTION. 
B2000/300C/4000 DMSII returns AUDITERROR. 


3. OPENERROR is returned for any DSII ocperation except CLOSE by 
B1000 DMSII if the database is net opened. On the 
B2000/3000/4000 series systemss the program is OS-ed. 


4. In 81000 ODMSII- a =synecpoint is not forced at CLOSE untess the 
program passes through a transaction state. In 82000/30007/4000 
DMSIIv a syncpoint is always forced at CLOSE. 


5. CLOSE frees alt records and waits for syncpoint on the 81000 
series systems. On the 82000/3000/4000 series systemssr records 
are not freed before the syncpoint. 


6. If an INSERT or REMOVE is attengpted cutsice transaction state and 
without having a current parent records NCRECORD is returned by 
B1000 DMSII. 82000/3000/40CO0 OMSII returns AUDITERROR. 


Partial Key Search of COB80L 68 Host. 


On B1000 COBOL68, the current path pointer is updated when a FIND AT KEY 
or a FIND NEXT AT KEY Cor MODIFY) is done via an indexed sequentiat SET 
or SUBSET. This takes place whether the cperation was successful or 
not. Thus a position is established in the index and subsequent FIND 
NEXT operations can retrieve recorcs from this pcsiticn onwards. 
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In 82000/3000/4C00 COBOL74- the detlar opticn SAVECF must be set in the 
COBOL program in order for DMSII te save the current path pointer on an 
unsuccessful FIND, LOCK or DELETE via an indexed sequential set or 
subset. If SAVECP is not set when the data tase is cpeneds the current 
path pointer is left untouched after unsuccessful accesses. 
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SECTION 9 
ISAM AND RELATIVE FILES 


The 81000 ISAM files are different from the 82000/3CO00/74000 ISAM files. 
The RELATIVE files on the two systems are the same. This section 
provides a detailed explanation of the differences between the 81000 and 
B2000/73000/4000 ISAM files» and some retevant information on RELATIVE 
files. 


B1000 ISAM FILES 
81000 has three types of ISAM files: 


1. 8 style ISAM files. 
2. TAG style ISAM files. 
3. COBOL74-style ISAM files. 


B1000 programs using any of these implementations can migrate ta 
B2000/ 3000/4000 ISAM. 


ISAM FILE TRANSFER 
DATA TRANSFER 


Because of format differences, these data files cannot be transferred 
from the 81000 to 82000/3000/4000 series systems using the SSCOPY 
utility program. To transfer these files the following action should be 
taken. 


B STYLE ISAM FILES 


B style ISAM files are available onty in RPG. Use SYSTEM/COPY and 
S$SCOPY to transfer the file. Then use IS*PUTL to generate a 
B200G/3000/4000 program to read the data file and create an ISAM file. 


TAG STYLE ISAM FILES 


TAG style ISAM files are available in RPG and CCBCLE48. Use SYSTEM/CCOPY 
and SSCOPY to transfer the data portion of the file. The key files need 
not be transferred. Then use ISMUTL to generate a 82000/30007/74000 
program to read the data file and create an ISAM file. 


COBOL74& STYLE ISAM FILES 


COBOL74-style ISAM files are available in RPG and COEBOL?74. Use 
CONV/ISAM to reac the ISAM file anc create a sequential data file on the 
B10C0 series system. Use SYSTEM/CCOPY and SSCOPY to transfer the file to 
the B2000/3000/4C000 series systems. Then use ISMUFTL to generate a 
B2000/3C000/4000 program to read the data file and create an ISAM file. 


Preliminary Form 1090735 September 177 1984 19:01 
Page 9-4 


BI0O0 TO B2000/3000/4000 SERIES SYSTEMS MIGRATION GUIDE C0330500 


B2000/3000/4000 ISAM FILE 


The ISAM files on the B82000/3000/40C0 series systems are multi-keyed. 
For purposes of addings updating and deleting records in a files, each 
record is identified solely by the value of its prime record key. This 
walue must therefores be unique and cannot be changec when updating the 
record. (The value of an alternate record key can be non~unique.) 


An indexed file can be meaningfully accessed only if it is declared to 
be of indexed organization. However» for RECOVERY purposes it can be 
accessed as a RELATIVE file in COBOL and a SEQUENTIAL file in RPG. 


An indexed file declared in a program is reatty a group of filess a data 
file and one or more key files. The data files and key files are not 
related outside of the code file. (It is the user*s responsibility to 
specify ali files in dumpss toads and so on.) 


If an ISAM file ts to be upecateds ali the alternate keys must be 
declared. Any key declared in the program accessing the ISAM file must 
match the key in the declaration of the file when the file was created. 


INDEXED FILE FORMATS 


Each indexed file declared in @ program results in multiple physical 
files for data and key information. The data file name is the same as 
the name of the file in the file declaration. The name of each key file 
4s composed of the first 4 characters of the data file name plus the two 
digit key number. 


An indexed data file is a singie physical file of data and centrol 
information. The first bicck in the file is composed entirety of file 
control information and is called the CONTROL BLOCK. The second through 
the tLast blocks are the DATA BLOCKS. They differ from the conventional 
data blocks in that they have block control information appended after 
the data records. 


An indexed key file is similarity structured as the indexed data file. 
Conceotuallys it can be described as an inverted tres-Like structure 
with different tlevels within it. 


INDEXED FILE RECOVERY 


When creating a files for all files cpened outputs should the system 
fail or the program get DSteds that file and any records written to the 
file will be Lost. To prevent the file from teing Llosts you can create 
a permanent disk file by opening the file outputs closing the file SAVE, 
and then reopening the file I-00 before writing to it. This can also be 
achieved by using the file PROTECTION = ABNORMALSAVE. 


Whenever a program that ‘has an indexed file open 1-0 fails to CLOSE,» 
that file must be recovered. An indexed file is reccvered by reading up 
the file records from the cata file of the cerrupted indexed file using 
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the RELATIVE crganization and writing them out te a new indexed file 
using the INDEXED Organization. At worst the data block being modified 
in memory at the time of the failure will be Lost and the changes to it 
will not be reflected in the recovered fite. 


In order to tnsure that the indexed files are recoverables user*s should 
check their compile Listings for the warnings "SBLOCKSIZE PADDED - FILE 
NOT RECOVERABLE.” If encountereds the blocksize must be increased to at 
least the control block size. 


A RECOVERY program source template is providec tec assist users in 
recovering their indexed files. The user files in the appropriate file 
declarations, compiles the COBOL sources and then executes the compiled 
program to recover the corrupted indexed file. 


PERFORMANCE CONSIDERATIONS 


There are certain things that a user should ray attention to tn order ta 
insure good performance on his ISAF file. 


The first is the number of keys declared for a file. Each file update 
requires that alt the key files be updated (except REWRITES that do not 
change the keys) and the number of keys is directly proportional to the 
time it takes to perform an update. 


Next is the data file blocking factecr which is specified itn the file 
declaration. Good random performance Cother than WRITES) is achieved by 
using a small blocking factor. Good sequential performance Cand WRITES) 
is achieved by using a large blocking factor. If both are necessary 
than an intermediate blocking factor determined by trial and error is 
called for. 


The size of the control block is 252 digits plus 100 digits for each 
alternate key declared for the file. S8ecause it must fit into a single 
data blocks, this is the minimum block-size the data-file can have. 


Key Length and key type alse affect the performance by choosing the 
minimum key-lenaths, also by using numeric rather than atpha keys if 
possible (RPG users only)» and by avoiding using signed keys if possible 
€CRPG users only) high performance can be achieved. 

Allocating sufficient key buffers can reduce the cveraltl number of key 
file 1-0"s significantly. The default is threes but this number is 
usually not enough and can cause a performance bottleneck. 

PROGRAE CONVERSION 

COBOL74 PROGRAMS 


There are no changes converting COLOL74 programs. 
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COBOL68 PROGRAMS 
Use the COFLTR filter to migrate your COBOL6& programs. 
RPG PROGRAMS 


The following describes some of the necessary changes to migrate your 
RPG files. . 


1. For ISAM files there are no changes. 


2e For TAG files there are no changess unless you are creating your 
own TAG file. If you arer, you should make your ISAM file 
multi-keyed. That way all of the tags are available all of the 
time and you wilt not have to create them. 


3. For 8 filess since the file is always ordered on the keysr some 
programs may access the file sequentially knowing that the 
records are in order. These programs will require a change to 
describe the file as indexed. The same holds fer programs 
creating the file. 


RELATIVE FILES 


The RELATIVE files on the two systems are the same and they are 
available in RPG and COBOL74. 


DATA TRANSFER 

Because of format differencess these data files cannot be transferred 
from the 81000 to #82000/73000/4000 series systems using the SSCCPY 
utility program. 


To transfer these files the following action shoulc te taken. 


Use CONV/ISAM to read the RELATIVE file and create a sequential data 
file. 


Use SYSTEM/COPY and SSCOPY to transfer the file to the #200C/3000/40C00. 
Then use ISMUTL to generate a B8200C/3000/4000 pragrar to read the data 
file and create a RELATIVE file. 

B2000/3000/74000 RELATIVE FILES 


A relative file can be meaningfully accessec only if it is dectarec to 
be of RELATIVE organization. 
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RELATIVE FILE FORMATS 


The first block in the file is composed entirely of file control 
information and is catled the CONTROL BLOCK. The second through last 
blocks are the DATA BLOCKS. They differ from the conventional data 
blocks that they have block control information appended after the data 
records. 


RELATIVE FILE RECOVERY 

File recovery is necessary whenever a program that is WRITING records to 
@ RELATIVE file beyond the previous EOF fails te close the file 
successfutly. | 
Relative file recovery is performed automatically by the next program 
that OGPENs the file. A message is displayed indicating that the 
recovery routine is being performed; and the program finds the true €£0F 
and updates the control block EOF pointer. 

PERFORMANCE CONSIDERATIONS 

Changing the block size of the RELATIVE file can cause considerable 
change in performance. Remember that the block size can be changed onty 
before the file is created. 

The size of the CONTROL BLOCK is 112 digits (56 bytes). Secause it must 
fit into a single data blocks, this is the minimum block size the 
RELATIVE file can have. 

PROGRAR CONVERSION 

COBOL74& PROGRAMS 

There are no changes converting COROL?74 programs. 


RPG PROGRAMS 


There are no changes converting RPE programs. 
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SECTION 170 
QUEVE AND PORT FILES 


The B20060/73000/4C00 series systems equivalent to queue files is port 
files. Version two of this manual will ciscuss the migration of 81000 
queue and port file constructs to 8200C0/3000/4000 port file constructs. 
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SECTION 11 
MIGRATION OF REMOTE FILES 


Version two of this manual will discuss the migration of programs using 
remote files. 
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SECTION 12 
MIGRATION OF READER SORTER FILES 


The READER-SORTER interface in B20C0/3000/4CCO COBOL74 is implemented by 
INTRINSICS rather than file constructs as in 81000 COBOL&&. Version two 
of this manual will discuss the migration of programs using 
READER-SORTER files. 
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SECTION 13 
FILE ATRIBUTES 


Certain file attributes ciffer between 8100C and B2ccos30vo74E6C0 
Systems. 


Version two of this manual will contain a detailed explanation of the 
migration differences hetween the 81000 and #82000/300074000 file 
attributes. 
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SECTION 14 
GENMCOS 


Yersion two of this manual will contain a detailed explanation of the 
migration differences between 81000 and 82000/3000/4C00 GENCOCS. 
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SECTION 15 
REPORTER 


ALL REPORTER products run on both 81000 and e820C0/3000/4000 series 
systems. There are a few considerations to keep in minds none of which 
are major stumbling blocks. 


On the B810G0 series systemss an external file name contains a maximum of 
three Levels» each of which may consists of 1 characters or tLess. on 
the 82000/73000/4000 series systemssr an external file name can contain 
one or two Levels» each of which may consists of 6 characters or tess. 
Changes will be required in this case. 


If the database names structures or data names were changed while 
converting the DASDL source from 81000 tea B20C0/3000/4000 OMSII-+ 
corresponding changes wilt have to be made in the VOCAL» REPORTER and 
On-Line REPORTER descriptions. 


The B2000/300C/4000 series systenrms do not suppert 96-column 9 card 
devices. Onty &80-column card input witt be accepted by VOCAL. The 
B2000/3000/4000 COROL source file input must be in 80 character recordse 
blocked between 1 and 9. 


Certain differences exist between B1000 and B82CCC/300C0/4CC0 Gn-tline 
REPORTER which are inherent to each machine. These functional 
differences are discussed in Appendices A and 8 of the On-Line REPORTER 
Ili User*s Manual. 

The use of WFL is recommended for audit-reporter execution. The 
Migration to WFL is a simple process. The same workflow source can be 
used for all audit-reporter runs by changing the external filenames 
which must be unique to each run. 


The use of WFL provides the freedom to specify task attributes, control 
attributess control the files and so on. 


MANUALS FORM 


On-Line REPORTER User's Manuat 1710228 


Vocabulary Language (VOCAL) User's Manual 1097128 


AUDIT-~REPORTER Language User'*s Manual 10982831 

REPORTER II and REPORTER II (Advanced) 1100393 

User®s Manual 

On-Line REPORTER III User"s Manual 1149937 

REPORTER LII Vocabulary Language (VOCAL) 1149361 
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User's Manual 


REPORTER LII Report Language User*s Manual 1121836 


The same manuats are used for both 81000 and 8200073000/4000 series 
systems. 
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SECTION 16 
ODESY 


The migration from 81000 te B200C/E300C/B4000 ODESY is a simple process 
and should cause no interruption to the data entry operation. The data 
entry portion of ODESY is cperationatly identicals thereby requiring no 
retraining of data entry operators. Screen formats created on the 81000 
series systems can be easily transferred to the B200C/8300C/84000 series 
systems by the use of the BDUMP/LCOCAD function of the Format Maintenance 
program. There are a few considerations to keep in minds none of which 
are major stumbling blocks. 


tf user progqrams are used to interface with the Data Entry program in 
ODESYs some changes to these programs will te necessary. The MCS header 
will be different between systems and witl require program changes. The 
ODESY header is also formatted differently but contains the same 
information. 


There are afew fermatting features available in 81000 ODESY that are 
not supported by 82000/83000/B4000 GDESY. fFortunatelys these features 
are extraordinary and are not included on the average screen format. 
There is no option in 82000/783000/78400G ODESY to have DISPLAY formats 
and associated TCTAL fields which allows displaying of batch totals oan a 
special screen format. 81000 ODESY allows the cefault sign of a signed 
field to be negative. This is not supported by B200C/B8300C/784000 ODESY. 
Specific fields can be defined as NO VERIFY using §€1000 ODESY. This 
feature is aiso not supported by SZ20C00/830GH/84000 ODESY. 


While screen formats can be carried across systemsr there is no 
provision to convert data in the active TANK file. Satches tin progress 
must be compteted on the 81000 series systems so that a new Cempty) TANK 
file can be created on the 82000/B83000/840C00 series systems. The SYSTEM 
file must aiso be recreated on the B2000/8200G/84000 series system. To 
bring across. the ODESY screen formats, install the currant 
82000/83000/84000 oOpneEsSY tevet 2.30. The requireoc level of the 81000 
ODESY is 2.20. 


Formats are transferred by dumping them to a backup file on the 81000 
series systems using the /DUMP command of the Format Maintenance program 
CODESY/JFORMAINT). This file is then transferred to the 
B2000/83000/B400C0 series systems by tape and inserted into the 
B200G/83000/84000 cCDESY system with the /LOAD command to the Format 
Maintenance program (ODYFOR). 


While B1000 and &2000/8300C/B4000 CDESY are essentially identical, there 
are some additional features available with B200C/7E3000/84000 ODESY. A 
partial iist follows: 


1. 82000/783000/84000 cCDESY has an O87 ingut program which allows 
input intc the Format Maintanence program (CCDYFOR) and/or the 
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Edit program (CODYEDT). This program (CDYSPO)s. gives the OdT 
operator the ability to bring the CDESY system up or downs send 
messages to the data entry cperators cer schedule batches. 


2. A nice feature of 82000/83000/84000 ODESY is journal headings 
where up to three Lines of title and/or column headings can be 
specified for output to a printed report {journal). 


3. 82000/7830C0/84000 ObESY has an option to change the signal 
character from a “/" to another character. This is sometimes 
necessary when the MCS under which ODESY is executing has the "/* 
character reserved for another purpose. 


4. 82000/83000/84000 oODESY alse allcews checking of crossfoct totats 
in the data entry program (QDYEDT) by means cf the JSTATUS XFOOT 
command. 


It will be useful to refer to the following manuals: 


B1000 MANUALS FORK 

ODESY Installation Manual 1129384 

ODESY Terminat Cperator’s Manual 17318571 

B2000/3000/46000 MANUALS FORM 

ODESY User*s Information Manual 2074064 

ODESY Console and Terminal Operator's 20144072 

Manual 

ODESY Capabilities Manual 2014379 
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APPENDIX A 


B1000 AND 82000/3000C/4000 REFERENCE MANUALS 


B1O00CG MANUALS 


System Software Operation Guides 
Volume 14 


System Software Qperation Guide, 
Volume 2 


COBOL Reference Fanuat 

COBOL74 Reference Manual 

CANDE Reference Manual 

GEMCOS User*s/Reference Manual 
GEMCOS Formatting Guide 

DMSII Reference Manual 

OMSTII Inaguiry Reference Manual 
RPG Reference Manual 


SORT Reference Manual 


System Communication Module (SYCCR) 


Network Definition Language (NBL) 


Reference Manual 
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APPENDIX 8 
PLANNING GUIDE 


Advance preparation and planning make a migration run smoothly. This 
section is designed to aid you in defining and planning the data entry 
portion of the migration. 


The planning suide provides a set of worksheets for use for record 
keeping and future reference. We recommend that you use the provided 
worksheets for keeping track of the migration process. This planning 
provides an orderly summary of att the relevant information required for 
the migration. 


This section also includes a checklist to hetp yeu keep track of the 
completed forms. 


On these formss alphabetic entries are followed by an Av and numeric 
entries are followed by an Nw Entries that can be atphabeticry numerics 
or special characters are followed by A/N. 


The number of tLines on these forms does not necessarily ccrrespond to 
the number of characters or digits indicated after each line. 


As you complete each forms write your initials and the date the form was 
completed. This is useful for geod record keeping and for future 
reference. 
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REQUIRED DATA ITEMS CHECKLIST 


Here is a checklist to help you collect the data neeced to fill out each 
form. To make sure you have all the data needed» complete the foilowing 
steps. Definitions of data items follow each form. If you have any 
questions concerning what data is being requested, refer to the 
appropriate definition page. 


1. Collect the data required for each feorr. You either need to 
provide specific datar cr you need to answer a question. 


2.2 When you have collected the datas check off that item. 
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MIGRATION PLANNING WORKSHEETS 


CUSTOMER PROFILE 
Account Information 


Customer's Address exw evan eevaneaeeneeuewvennanennw en 62 8 hi ee ae ae ae 


Burroughs Branch Information 


District Cede cccccnanacvccevsesescasensneunae ieteeegs 
Branch Code wccccncesvecccvescctecescessenaaeae Ieee oun 
Line of Business Code cwccccasccscavecannseneass ees 
Account Manager’ s NaM@ cssecauccuceseeseeneeee cues 
Sales Respresentative wwccccvsancnasceossunnan ene 
Field Engineer sen esn ven enaneseenensaaennneen aes > mm 


CONFIGURATION DETAIL 
(For each system number) 


Source System 


Processor Designation cnwceeesavacéeeeeeseeeee “~Sicad 
Operating SYSECM ccancteccsacsewee eed dees an ewe ee 
Data Communications System cacncecssscanncazzce Pores 
Data Management System w~wwecnnsecsennneeesees ~onne 


Target System 
Processor Designation Sse enensv anne e Dna nanauannennae ‘ais som se atin nda 
OCueratinge: SYStEN: ci wie Sees sdcbeeeweceeieSeeee <cvowa 
Data Communication System ..ccccrwacansccrcee ogee 
Data Management System ean enna anean een nun en 282 ORM wae m mmm 


WORK SCHEDULE 
(For each weekday) 


Work Days anid HOUCS scene eceweecaeeweoceeweeeeee i sedwa 
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MIGRATION PLANNING WCRKSHEETS 


HOLIDAY SCHEDULE 


PERSONNEL 
(For 


RESOURCE DESCRIPTION 
each resource) 


RESOUTCE CLSSS cwcsccuwsaewbu lana du eGene sean eae 
POWST FACTO! ccsewe deeb es abe be eee eee ew ees ees 
COURT wiscaaee ie ea wia we eee O66 ba Wee ee SG ook ew wee 
Cost Per Untt Per HOU: sceccecweeeee se sees ee 
Utilizatian Loss ccsccccecavccaencssesausasess 


COMPUTER RESOURCE SCHEDULE 


Average Time Computer is Available Per Week 


Cost 


Sourte Computer ease nena nna sannnennenneesaenanene ans 
Host Computer sean anenanneaanne nas eneennaananneaes eee 


Per Hour for the Use of Computer 


Source Computer wccuncccvancsavessznasnzvannennean 


SYSTEM CHARACTERISTICS 


(For 


each system ID) 


DOCURERT ATION Level -cewseweSundaceen eee ween ane 


FIXED COSTS 
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MIGRATION PLANNING WORKSHEETS 


PROGRAM DETAILS 
€One form for each system icentification or 
source/target language combination) 


System Ident itication w6iadecinwcuac oe wees eeu ER ern ee 
SOUPCSE LANGUES cc cde dtne es daca eeawie acess a wee 

TAaTGet: LANGUaADe: £6 edb esd ehh eS iw Shee ek oes 

Program Tdentifications s<esesccssccssancecoeaus 

Numbers of Statevents .wercauecseewieeeeesieee 

Types of Migrations Required cesecwssacvence 

PEOGTSO VGCLAti lity? sccusseeue ation seeGewe eens es Seat as 
OOTAMIZSACION? Sede cede Sur seePe weeds eedeewese. “cic 


Estimated Migration Jimes seen eeaenvnvnvavannseaunea <a ep a aaa a 


FILE DETAILS 
(One form for each system identification or 
source/target Language combination) 


SYStGm Pdentitication wesewedssweseesesdeeseaew- 2545 
FECES ECHL VIPCALIONS: wtewees ce wcdueweseeeeeeewe> Atos 
Source Files Organizations a~ssccunasscevvenace sal 
Target Files Organizations wwesncocsccseseneee pHi 
Variable Record Length? skews wseweeeeeeeeeSe S@ S6eee 
COBOL Record Format Availability? wexsucocccn ae 
Computer Time Required? .nwecrcccccvenccesans eascst est 
EStimated Length sci46eesewcebeweeeeeeSeeeweee  ~eieiecc 


MISCELLANEQUS TASK DETAIL 
(One form for each system identification) 


S¥sten: PdentifiCagtion ssawetcaceueeiwesenswee  -25e55 
Task PCeCRETIILatIOR as tediecadwaeeeeeeGbeeenee- (65505 
Computer ReGusred? . 246.24 Ssewee oc eee ces usee eee pare tee 
EST IWated Length Kisc«secccedwee eweeeenc aces ue earns! 
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MIGRATION PLANNING WORKSKREETS 


SUBSYSTEM RELATIONSHIPS 


a 1 ve a oe 
— <—  v 


SUBSYSTEM RELATIONSHIPS 


Successor Subsystem IDs wssccevcvcosncsacsees 
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MIGRATION PLANNING WORKSHEETS 


1. (CUSTOMER PROFILE 


ACCOUNT INFORMATION: 


NAN oes. a ae ee ee Nak eoied (40 CHAR A/N) 
ras Sr ee a i te oh ae ns €40 CHAR AND 
CITY & STATE eee aN aE cee aE eet ee nT (40 CHAR A/N) 


BURROUGHS BRANCH INFORMATION: 


DISTRICT CODE €3 CHAR ND 


BRANCH CODE ae (3 CHAR N) 


LINE OF BUSINESS CODE __. {2 CHAR ND 


ACCOUNT MANAGER ee eee ee OPE ee eee iets (20 CHAR AYN) 
SALES: REPRESENT ADI VG ccc oe i ee C20 CHAR A/N)D 
FIELD ENGINEER i Sia eile cea es cated arg ta {20 CHAR A/N) 
PATE __oL_e 
ENDT gg] ee 
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SYSTEM NUMBER 
PROCESSOR 
OPERATING SYSTEM 
DATA COMMUNICATION 


DATA MANAGEMENT SYSTEM 


SYSTEM NUMBER 
PROCESSOR 
OPERATING SYSTEM 
DATA COMMUNICATICN 


DATA MANAGEMENT SYSTEM 


SYSTEM NUMBER 
PROCESSOR 
OPERATING SYSTEM 
DATA COMMUNICATION 


DATA MANAGEMENT SYSTEM 
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2e CONFIGURATION DETAIL 


SOURCE SYSTEM 


a a <a a I ae a ee ee em a 
a oe a ES EE De a i ee Oe 


Pe ee ee eee ae ee 
oe te ee ee ee ee ee 


2 a > a a a a a Os 1 A oe 


35 
Page 


TARGET SYSTEM 


a vem ee ame -oe 


> a 


a me ae 


we Dp we 


7 a ow oe 


—_ ow oo 


a a 


B-8 


a ee ee 


— me a oe 2 


a a ioe oe oe a 


a a oe ee ee 


a ae ee a ee 


a ab ae 


(7 CHAR N) 

(15 CHAR AJN) 
€15 CHAR A/N) 
(715 CHAR ASN) 


€15 CHAR AJN) 


C1 CHAR N) 
€15 CHAR A/N) 


€15 CHAR A/N) 


€15 CHAR A/N) 


C15 CHAR AJN) 


C1 CHAR AJN) 
€15 CHAR AN) 
€15 CHAR A/N) 


(15 CHAR AYN) 


€15 CHAR A/N) 


DATE 


September 177 1934 


0039670C 


99:01 
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MIGRATION PLANNING WORKSHEETS 


EXAMPLE 
CONFIGURATION DETAIL 


SOURCE SYSTES TARGET SYSTEM 


SYSTEM NUMBER 4 C1 CHAR N) 
PROCESSOR 18M SYSTEM 3 B 400C/8 20C0 (€15 CHAR AYN) 
OPERATING SYSTEM Dos/VSsi —— a 4000 wcR €15 CHAR A/N) 

DATA COMMUNICATICNS crest” GENCOS —_ €15 CHAR AYN) 

DATA MANAGEMENT SYSTEM IONS DMS 11 os €15 CHAR A/ND 
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MIGRATION PLANNING WORKSHEETS 


CONFIGURATION DETAIL DEFINITIONS 


FIELD FIELD FIELD 
NAME SIZe TYPE DESCRIPTION 
SYSTEM NUMBER 4 N Enter the number te identify 
source/target processor pair. 
PROCESSOR 15 ATN Manufacturer's processor 
designation. 
OPERATING SYSTEM 15 A/N Name of the system's 
operating system software. 
DATA COMMUNICATIONS 15 AN Name of the system's data 
communication software. 
DATA MANAGEMENT SYSTEM 15 AJN Nawne of the system"s data 
management system. 
Preliminary Form 1090735 September 17% 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


3. PROGRAM DETAIL 


SYSTEM IDENTIFICATION ___.__.___ eee Pea ei Se (15 CHAR ASN) 


SOURCE LANGUAGE (3C CHAR A/N) 


TARGET LANGUAGE ~~ UL eRe NT ee AEs fas statics €30 CHAR AJsND 
NO. OF TYPE OF PROG EST CONV 
PROGRAM ID STMTS CONVER VOLIT*Y GCPTIMIZED TIME 
€10 CHAR AJN)D €& CHAR N) (Tr Re Sr Dd C¥sr ND) C¥sr ND {4 CHAR N) 
DATE uuu 
INIT Se 
Preliminary Form 1090735 September 477 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


SYSTEM IDENTIFICATION 


EXAMPLE 


PROGRAM DETAIL 


PAYROLL 


C15 CHAR A/N)D 


a Pe ee ee ee ee ee 


SOURCE LANGUAGE I8M 360/370 BAL 


—e  - we ae ee ee Po ee ee ae ee ee ee ee ee a ee ee ee a ee ee es 


TARGET LANGUAGE BURROUGHS 8S COBOL 


PROGRAM ID 
C10 CHAR A/N) 


> a A ee 4 ee ee ee 
PD Oe - 
A a 


1 a a a a ee 


C30 CHAR AND © 


C30 CHAR A/N) 


A Le A a a a >_> A EE A A OE A ED AE SE A ED ne es ee A 


STMTS 


(6 CHAR N) 


A A A A 


Preliminary Form 1090735 


TYPE OF 
CONVER 
CT rR257D) 


Page 


PROG 


VOLIT‘Y 
CY/N) 


B-12 


EST CONV 
OPTIMIZED TIME 
CY¥rN) €4 CHAR NN? 
N 620.1 
N 000.5 


September 14177 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


PROGRAM DETAIL DEFINITIONS 


FIELD FIELD FIELD 
NAME SIZE TYPE DESCRIFTION 
SYSTEM ITOENTIFICATION 15 AN The name of the system the 
program is in. 
PROGRAM IDENTIFICATION rat AZN The pregrar's name. 
NUMBER OF STATEMENTS 6 N The number of statements in 
the program. 
SOURCE LANGUAGE 39 AJN The language the program is 
written in before migration. 
TARGET LANGUAGE 30 A/N The Larguace the program will 
be converted to. 
TYPE OF MIGRATION REQUIRED 1 A TYPE OF MIGRATION: 
JT = Translate 
R = Rewrite 
§ = Substitute 
D = Drocg 
PROGRAM VOLATILITY 1 A Yor Nw. Yess if frequent 
changes are made to this 
program. 
OPTIMIZATION 1 A Yocr Nw Yess if the 
translated program is 
to be optimized. 
ESTIMATED MIGRATION TIME 4, N Man-days in 1/10 of a day 
increments. 
Preliminary Form 1090735 | September 174 1984 192061 
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MICRATIGCN PLANNING WORKSHEETS 


3. FILE DETAIL 


SYSTEM LDOENTIFICATION_ +e Sa are ~ ©15 CHAR AND 
SOURTE TARGET VAR* ELE COBGL ESTIMATED 
FILE ORG FILE ORG RECORD RECORD CONVER 
FILE ID {DreMsls (Me Ie, LENGTH FORMAT TIME 
€70 CHAR AJZN)D Re$*0) § 70) C¥rN) C¥7N) (4 CHAR ND 
Pretiminary Form 1090735 September 177 41984 19:01 
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MIGRATION PLANNING WORKSHEETS 


EXAMPLE 


FILE DETAIL 


SYSTEM IDENTIFICATION PAYROLL C15 CHAR A/ZN)D 
SOURCE TARGET VAR* BLE COBOL ESTIMATED 
FILE ORG FILE ORG RECORD RECCRDO CONVER 
FILE ID (DoMe le CMs To Re LENGTH FCRMAT TIME 
C10 CHAR AYN) ReSeO) $20) CY¥eN) CY¥sN) (4 CHAR N) 
EMPLOYEE D $ N K 023.5 
PRSHAR R R Y N c03.5 
Preliminary Form 1090735 September 174 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


FILE DETAIL DEFINITIONS 


FIELD FIELD FIELD 

NAME SIZeé TYPE DESCRIPTION 

SYSTEM IDENTIFICATION 15 AYN The name of the system this 
file ts in. 

FILE IDENTIFICATION 10 AYN This file"s name. 

SOURCE FILE ORGANIZATION 1 A Type of file organization: 

0 = Direct 

kK = Rarcom 

$ = Sequential 
I = Indexed 

M = Data Ease 
0 = Other 

TARGET FILE ORGANIZATION 1 A Type of file organization. 
Das not allowed. 

VARIABLE RECORD LENGTH 1 A Yor N. Dees this file 
contain variable Length 
records? 

COBOL RECORD FORMAT 4 A Yer uN. I8 a COBOL 

AVAILABLE description availatte? 

ESTIMATED MIGRATION TIME 4 N Man-days in 1/710 of a day 
jncrements. 

Preliminary Form 10960735 September 17, 1984 19:01 
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MIGRATICN PLANNING WORKSHEETS 


4. MISCELLANECUS TASK DETAIL 


SYSTEM ITOENTIFICATION __ entinke tes er ee ee er ie ee ere eee te C15 CHAR ASN) 
COMPUTER 
TIRE ESTIMATED 
TASK ID REQUIRED TIME 
C10 CHAR AND (Y/N) (4 CHAR ND 
DALE Jo Se eae 
DNA vee et 
Preliminary Form 1090735 September 17% 1984 19:01 
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MIGRATION PLANNING WCRKSHEETS 


EXAMPLE 


MISCELLANECUS TASK DETAIL 


SYSTEM IDENTIFICATION PAYROLL C15 CHAR A/JN) 
COMPUTER 
TIRE ESTIMATED 
TASK 10D REQUIRES TIPE 
{10 CHAR AN) (YN) {4 CHAR N) 
GTIMECRDS N 003.5 
CALCPAY ¥ CO2.5 
CALCTAXS Y 004.0 
Preliminary Form 1090735 September 176 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


MISCELLANEOUS TASK DETAIL DEFINITIONS 


FIELD 
NAME 


SYSTEM IDENTIFICATION 


TASK IDENTIFICATION 


COMPUTER TIME REQUIRED 


ESTIMATED LENGTH 


Preliminary Form 1090735 


FIELD 
SIZE 


15 


10 


FIELD 
TYPE 


A/N 


AN 


Page 8-19 


DESCRIFTION 


The neme 
the task 


The neme 
the task. 


Yor WN. 
required 


Man-days 


cf the system 
is in. 


you've assigned 
Is computer time 
for this task? 


in 1/710 of a day 


increments. 


September 177 1984 


00437900 


19:01 
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MIGRATION PLANNING WORKSHEETS 


Se WORK SCHEDULE 


(Hours per days 2 CHAR», N) 


SUNDAY 


a me 


MONDAY 


TUESDAY 
WEDNESDAY 


THURSDAY 


FRIDAY 


SATURDAY 


a a om ee  -o -e 


Preliminary Form 1090735 September 27 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


EXAMPLE 


WORK SCHEDULE 


SUNDAY 00 
MONDAY G8 
TUESDAY EB: ) 


ae 


WEDNESDAY O82 


THURSDAY 0&8 


FRIDAY G4 


SATURDAY C4 


Preliminary form 1090735 September 177 1984 19:01 
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ee aca ae 
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MIGRATION PLANNING WORKSHEETS 


6. 


Preliminary Form 1090735 


HOLIDAY SCHEDULE 


MM DD YY 
(6 CHAR N) 


f / 


/ / 


i / 


/ / 


a ed — a 
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MM DD YY 
(6 CHAR N) 
og 
eg eee 
Sense 
oe a 
a ae a 
ee 
si aa 
Sie) See oe 
sca i 
set ee 

DATE 
INIT 


a a a i ee 


0044570 


September 377 1984 19:1. 


mM DD YY 
(6 CHAR N) 


ov oUt 23 


127 207 £3 


7 «Ep me > ae a a 


Preliminary Form 1090735 


EXAMPLE 


HOLIDAY SCHEDULE 


MM OD YY 
(6 CHAR N) 


O24 21/ 83 


smn El 0 le 
a: a _ a -: — —- 
m——— A ee ee 
— ea ee ee 
— ee eae) hw 
nme se See Se Se 
=a 0l 
I Ni Ee ee od 
nae ee oe ee oe 


_ a. = —_ > 
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MIGRATION PLANNING WORKSHEETS 


BM OD YY 
(6 CHAR ND 


oS/ 30783 


127 28783 


= = ™ 1. —- a 


=_ = 2 oe > ae 


September 174 1984 
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19:01 
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RESOURCE 
CLASS 
C15 CHAR AN) 


ih A A ED OR A a oe 


A ORR: RR ON A ED a 
AD a 


Ne aS en a A SO SO 


MIGRATION PLANNING WORKSHEETS 


7. PERSONNEL RESOURCE DESCRIPTION 


POWER COUNT 
FACTOR 
(3 CHAR WN) 


Preliminary Form 1090735 


COST PER UNTT. 


PER HOUR 
(4 CHAR ND 


September 174 1984 


Page 3-24 


00452600 


UTILIZATION 
LOSS ¢€%) 
(2 CHAR N) 


DATE 


INIT 


49:01 
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MIGRATION PLANNING WORKSHEETS 
EXAMPLE 


PERSONNEL RESOURCE DESCRIPTION 


RESOURCE POWER COUNT CCST (PER UNIT UTILIZATICN 
CLASS FACTOR PER HOUR LOSS ¢%) 
(15 CHAR A/N) (3 CHAR N) €4 CHAR Nd {2 THAR N) 
SYSTEMS ANALYST 4.250 Co5 OO8O 00 

SAM WILLS 0.75, 001 0024 “40 

JANE PETERS 1.75 004 “0034 “00 

POLLY BROWN 0.75 001 “0021 “70 
PROGRAMMER2 0.50 045 “0012 “45 

BILL JONES c.75 = 004 “outs “25 
PROGRAMMER 1.50 005 “9080 “00 

MARY SMITH 0.75 008 “0024 “40 
Preliminary Form 1090735 September 477 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


PERSONNEL RESCURCE DESCRIPTION DEFINITIONS 


FIELD FIELD FIELD 
NAME SIZE TYPE DESCRIPTICN 


RESOURCE CLASS 15 AYN Name of the resource Ceither 
generics @.G. SYSTEMS ANALYST 
or by names e.g. JOAN SMYTHE. 


POWER FACTOR 3 N A numeric estimate relating 
to the rescurce"s relative 
efficiency €71.0 15 AVERAGE). 


COUNT 3 N Number in this resource 
class available to work on 
this misration. If the 
resource is by names this 
field should be 1. 


COST CPER UNIT PER HOUR) & N Resource cost per unit per 
hour (salary). 


YTILIZATION LOSS 2 N A percentage of time this 
resource is to be engaged in 
non-migration related 
activities. 


Preliminary Form 1090735 September 177 1984 19:01 
Fage 8-26 


B1000 TO B82000/3000/74000 SERIES SYSTEMS MIGRATION GUIDE 00462100 


MIGRATION PLANNING WORKSHEETS 


8. COMPUTER RESCURCE SCHEDULE 


AVERAGE TIME COMPUTER 1S AVAILABLE PER WEEK 
SOURCE COMPUTER SYSTEM HOST COMPUTER SYSTEM 


- {4 CHAR ND ” (4 CHAR N) 


a a a —_—_2 — << a 


COST PER HOUR FOR THE USE OF COMPUTER 


SCURCE COMPUTER SYSTER HOST COMPUTER SYSTEM 
{4 THAR ND €4 CHAR ND 
DAT ot 
ONE ee oe 
Preliminary Form 1090735 September 17,7 1984 19:01 
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MIGRATICN PLANNING WORKSHEETS 
EXAMPLE 


COMPUTER RESCURCE SCHEDULE 


AVERAGE TIME COMPUTER IS AVAILABLE PER WEEK 
SOURCE COMPUTER SYSTEM HOST COMPUTER SYSTEM 


038.0 4 CHAR N) O55.2 ¢€4& CHAR WN) 


an an aD a a a a 


COST PER HOUR FOR THE USE OF COMPUTER 


SQURCE COMPUTER SYSTEN HOST COMPUTER SYSTEM 
C025 ¢4 CHAR ND OC13 €4 CHAR Nd) 
Preliminary form 1090735 | September 177 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


COMPUTER RESOURCE SCHEDULE DEFINITIONS 


FIELD FIELD FIELD 

NAME SIZE TYPE DESCRIPTICN 

AVERAGE TIME COMPUTER 15 4 N Number of hours per week the 

AVAILABLE PER WEEK source anc host camputers 
will be available per week 
given to the nearest 1/10 
cf an hour. 

COST PER HOUR FOR THE USE 4 N Rates of charge per hour for 

OF COMPUTER the use of the source and 
hest computers. 

Preliminary Form 1090735 September 17 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


9. SYSTEM CHARACTERISTICS 


SYSTEM ID PRIORITY LEVEL 
€15 CHAR AYN) {2 CHAR WN) (GrArPoN) 
DATE ~~ 
ON on Ss es 
Preliminary Form 1090735 September 17 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


EXAMPLE 


SYSTEM CHARACTERISTICS 


SYSTEM ID PRIORITY LEVEL 

(15 CHAR A/N) (2 CHAR N) C(GrArPoN) 

PAYROLL 5¢ P 

ACCOUNTS PAY 60 “A 

ACCOUNTS REC “90. “6 

wie oO 4c Ne 
Preliminary Form 10907235 September 17¢ 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


SYSTEM CHARACTERISTICS DEFINITIONS 


FIELD FIELD FIELD 
NAME SIZE TYPE DESCRIFTION 


SYSTEM ID 15 AJN The name of this system. 


PRIORITY 2 N The cricrity of this 
system*s migration 
as related to the other 
systems to be converted. 


DOCUMENTATION LEVEL 1 A Quality of the 
documentation available 
for this system. 


Good 
Average 
Poor 
None 


20 mm 


hot oth af 


Preliminary form 1690735 September 1? 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


10. SUBSYSTEM DEFINITION 


SYSTEM IDENTIFICATION {15 CHAR AJND 

SUBSYSTEM ID C10 CHAR AYN) 

RESOURCE CLASS (75 CHAR A/W®) 

UNITS 

€10 CHAR 

AN) os loatieston tenia ieataaiaentenintnnttiontalerteatentonteatenlentenieaten t lenkouteaietee imate = cosleateniaiontoetontaatentet 

SUBSYSTEM ID C10 CHAR A/N) 

RESOURCE CLASS (15 CHAR AJND 

UNITS 

£10 CHAR 

AvN) eer eee weer eee eer reser 0 lu women wee ee weer 

SUBSYSTEM ID (10 CHAR AJN)D 

RESOURCE CLASS {15 CHAR A/sND 

UNITS 

(10 CHAR 

AJND seas ‘Soe hay” Smeg? Sen ie: Wa eb a isis: i a is sa se sali tain Sie cat eenaln eantahe  as a sii la ils aah i‘ a: Yl 
DAT Be oe 
ROPES 8s 2 oe 

Preliminary Form 1090735 September tt? 1984 
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MIGRATION PLANNING WORKSHEETS 


EXAMPLE 


SUESYSTEM DEFINITION 


SYSTEM IDENTIFICATION PAYROLL | (15 CHAR A/N)D 
SUBSYSTEM ID PeRSOOT €10 CHAR AJN) 

RESOURCE CLASS hasek DOE C15 CHAR AND 

UNITS Pens oe jberhenee dips esced peRsd ons 
{10 CHAR peneece PERSJOBS eetsaee PERSIOES 
APN —— wr tweens te een--= wee ewe ee eewe- - <--- weeccn-- 
SUBSYSTEM 1D eters €10 CHAR AYN) 

RESOURCE CLASS pases slate €15 CHAR AN) 

UNITS TAR REGES bh akcsilaaabies PeneeCU? TAXRECNY 
(10 CHAR TAXRECNY abba ais RARE et TAXRECNE 
AIN) wxeecccceren os loedieeteetnestnatiestontontontieeieniittticadentnatasiontonicatentetonteietttttietetaleatettoate ---- 
SUBSYSTEM ID apace €10 CHAR AIN) 

RESOURCE CLASS JANE SMYTHE C15 CHAR AJN) 

UNITS Fee: FEDTAXCC2 FEDTAXOCS ecpsubeeaa 
{10 CHAR TAXRECNY TAXRECNI TAXRECCT TAXRECNS 
AIND —-—_ wren eeren- —-— weemeweewe ee ew wr meee ree ew eee sree =H 
Preliminary Form 1090735 September 17% 1984. 
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MIGRATION PLANNING WORKSHEETS 


SYBSYSTEM DEFINITION DEFINITIONS 


FIELD FIELD FIELD 

NAME SIZE TYPE DESCRIPTION 

SYSTEM 1D 15 AJN The name of the system 
this subsystem is in. 

SUSSYSTEM ID 10 A/N The subsystem"s name. 

RESOURCE CLASS 15 AsN Name of the resource 
working on this 
subsystem. 

UNITS 10 AdN The names of programs. . 
filess or tasks which 
make up this subsystem. 

Preliminary Form 1090735 September 177 1984 
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MIGRATION PLANNING WORKSHEETS 


11. SUBSYSTEM RELATIONSHIPS 


SYSTEM TDENTIFICATION 


{15 CHAR A/N)D 


A AD A ED ED AN A A ED ED  - e 


SUBSYSTEM ID C10 


EE DONE AES A OD ON OS A 


SUCTESSOR SUBSYSTEM ID*S €10 CHAR 


SUBSYSTEM ID (10 


SUCCESSOR SUBSYSTEM ID*°S C10 CHAR 


SUBSYSTEM ID (16 


i A a A ee 9 OES Se ee ee 


SUCCESSOR SUBSYSTEM 1B*°S (1G CHAR 


Preliminary Form 1090735 


CHAR 


AYN) 


CHAR 


AIN) 


A#N) 

AgN) 

AsN)D 
PAVE: occu oe 
INIT 


> me aD HEP ED AD ER 


September 177 1984 
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MIGRATION PLANNING WORKSHEETS 


EXAMPLE 


SUBSYSTEM RELATIONSHIPS 


SYSTEM IDENTIFICATION PAYROLL (15 CHAR A/N) 
SUBSYSTEM ID PERSOO4 €10 CHAR A/D 
SUCCESSOR SUBSYSTEM ID*S €70 CHAR A/ND 
TAXRECOOT FEDTAXDG1 
SUBSYSTEM ID reseeeues (710 CHAR AYN) 
a Ss tl Ss Na nr ts es 
SUCCESSOR SUBSYSTEM ro*s €10 CHAR AN) 
FEDTAXOC 
SUBSYSTEM ID (10 CHAR A/JN) 
SUCCESSOR SUBSYSTEM ID*S €10 CRAR AN) 
Preliminary Form 1090735 September 175 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


SYSTEM RELATIONSHIFS CEFINITIONS 


FIELD FIELD FIELD 
NAME SIZE TYPE ;  BESCRIPTION 
SYSTEM TDENTIFICATION 15 AYN The system's name that 
this subsystem belongs 
to. 
SUBSYSTEM 1D 10 AN The subsystem’s name. 
SUCCESSOR SUBSYSTEM ID'S 40 AiN The subsystem Ids of the 
subsystems that must 
follow this one in the 
migration. 
Preliminary Form 1090735 September 17, 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


12. FIXED COST 


FIXED COSTS PER DAY (6 CHAR Nd 
DALE. “poe 
ONE idee ees 
Preliminary Form 1090735 September 17+ 19384 19:01 
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MIGRATION PLANNING WORKSHEETS 
EXAMPLE 
FIXED COST 


FIXED COSTS PER DAY COC13C {6 CHAR N> 


ew a a on ae ae 


Preliminary Form 1090735 September 17% 1984 19:01 
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MIGRATION PLANNING WORKSHEETS 


PLANNING CHECKLIST 


CUSTOMER PROFILE cet cis oeccscacccsceeeeecueeeeieseleeees. Cou: 
CONFIGURATION OETAEL, Sbccccudiseesecsdienssccweseeeseeesee wows 
WORK SCHEOULE .<iscceccepcceceasee ene scesetustenssceteeese cose 
HOLT DAY SCHEDULE ucciececsceus Oedoweeeckeesesueeucuescces: arise 
PERSONNEL RESOURCE DESCRIPTION wecccccccccccacccceccneee=§ —u-k 
COMPUTER RESOURCE SCHEDULE .-ceecenceenccccccucnccccceees ou 
SYSTEM CHARACTERISTICS coviccuddccdcdectvceececveteeessese cucu 
FINED COSY Suse sckesececeboses tub ecoescesedueswcsGeseeeeke. conc. 
MES CELLANEOUS TASK DETAIL sewsecccccecocescdcccsscssocese cocdcc 
SUBSYSTEM: DEFINITION ccccseccsesoesese ee scducauseesee sie. “neice 


SUBSYSTEM RELATIONSHIPS seeaeq- sce eaenenaananennen ana ens aeaspaeaeaeneence 888 88D 2 we we we ww 


Preliminary Form 1090735 September 17, 1984 19:01 
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Documentation Evaluation Forr 


Tittle: : 7 “ 4 . E P Form No: ee ee) a Ee. sam wane 
Dates isa eae a Se eee 


@urroughs Corporation is interested in receiving your 
comments and suggestions regarding this manual. Comments 
will be utilized in ensuing revisions to improve this manual. 
Please check type of Suggestions 
Addition Deletion _. Revision _. Error 


— —- ar 


Comments: 


From: 
Name a ee ee ee ee es ee i a a a we A Oe —_p 2 = 2 ae ee a ee ee ee oe ee ee ee ee ee ee ee ee ee ee 
Title > ae sp A a ae Oe A a vo 2 er ee a a ee a pe ee eee a a a a a a> a = 
COMDORY .. cone cee cocueesseenwoucae Sue ee dsdohe atercteslee esas 
Address _ a ae a =e a = ee 2 ae eee se a ee 2 oe ee ee ee 2 ae ee ee ee ee a ME aap ap ae a ——_ = = 2 a oP 
Phone Number ooo ool owuawe: “OOO. - Sooo lee aoe api 
Remove form and mail tos 
Burroughs Corporation 
Prograrting Activity - Migrations 
460 Sierra Madre Villa 
Pasadenas CA $1109 
Preliminary Form 1090735 September 17 1984 19:01 
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